Найти самое длинное слово и самую длинную фразу

[Arshavin10]

Помогите с программой.

В заданном тексте найти самое длинное слово и самую длинную фразу.

[Stilet]

самое длинное слово

Ну это не сложно.

  var s,s2:string;l:integer;
begin
 s:='Hallo my friend';
 S:=s+' ';
 while s<>'' do begin
  l:=length(copy(s,1,pos(' ',s)));
  if l>Length(s2) then s2:=copy(s,1,pos(' ',s));
  delete(s,1,pos(' ',s));
 end;
 writeln(s2);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.