Напишите программу в ПАСКАЛЕ: "Ввести строку. На печать выдать строку, в которой удалены все слова равные по длине. "

Как-то так.. .
var s,sl:string;
i,j,k,m,l:integer;
a:array [1..255] of string;

begin
i:=0;
j:=0;
write('Напишите строку: ');readln(s);
s:=s+' '; sl:='';
for i:=1 to length(s) do
if s[i]<>' ' then sl:=sl+s[i] else
if length(sl)>0 then
begin
inc(j);
a[j]:=sl;
sl:='';
end; {… (* создали массив из слов … }

for i:=1 to j do
if length(a[i])<>length(a[i+1]) then
write(a[i],' ');{… (* выводим массив из нужных нам слов … }
readln;
end.