Задача на строки.

uses crt;
const rz=[' ','.',',',';',':','?','!']; {разделители слов}
var s,s1,sd:string;
    len,i,max:byte;
begin
clrscr;
writeln('Введите строку из слов, отделеннvх разделителями:');
readln(s);
for i:=1 to length(s) do{заменим разделители на запятые}
if s[i] in rz then s[i]:=',';
s:=s+',';{добавим к ней запятую}
while pos(',,',s)>0 do{удалим лишние запятые}
delete(s,pos(',,',s),1);
if s[1]=','then delete(s,1,1);{если первая запятая, удаляем}
sd:=''; {длинное слово}
max:=0; {его длина}
while pos(',',s)>0 do{пока есть запятые}
 begin
  len:=pos(',',s)-1;{длина очередного слова}
  s1:=copy(s,1,len);{само слово}
  if len>max then{если больше предыдущих}
   begin
    sd:=s1; {запомним}
    max:=len; {его длина}
   end;
  delete(s,1,pos(',',s));{удаляем проверенное слово, следующее первое}
 end;
writeln('Самое длинное слово:  ',sd);
readln
end.

uses crt;
var s,s1,sd:string;
    len,i,max:byte;
begin
clrscr;
writeln('Введите строку из слов, отделенных пробелами:');
readln(s);
s:=s+' ';{добавим к строке пробел}
while pos('  ',s)>0 do{удалим лишние пробелы}
delete(s,pos('  ',s),1);
if s[1]=' 'then delete(s,1,1);{если первый пробел, удаляем}
sd:=''; {длинное слово}
max:=0; {его длина}
while pos(' ',s)>0 do{пока есть пробелы}
 begin
  len:=pos(' ',s)-1;{длина очередного слова}
  s1:=copy(s,1,len);{само слово}
  if len>max then{если больше предыдущих}
   begin
    sd:=s1; {запомним}
    max:=len; {его длина}
   end;
  delete(s,1,pos(' ',s));{удаляем проверенное слово, следующее первое}
 end;
writeln('Самое длинное слово:  ',sd);
readln
end.