В строке определить самое длинное слово.

uses crt;
var s,s1,s2:string;
    max,len:integer;
begin
  clrscr;
  writeLn('predlozenie: ');
  readLn(s);
  writeln;
  s:=s+' ';  {добавляем пробел}
  while pos('  ',s)>0  do  
  delete(s,pos('  ',s),1);{удаляем лишние пробелы('  ')-это 2 пробела}
  s1:=''; max:=0;
  while pos(' ',s) > 0 do  {пока есть пробелы, здесь 1 пробел}
   begin
    len:=pos(' ',s)-1; {определяем длину очередного слова}
    s1:=copy(s,1,len); {запоминаем его}
    if len > max then
      begin
        s2:=s1;  {если оно длиннее предыдущих, то запоминаем его}
        max:=len;
      end;
    delete(s,1,pos(' ',s)); {удаляем просмотренное слово}
   end;
  write('Max slovo: ',s2);
  readLn;
end.

var
  temp,s,max:string;
  i:integer;
begin
  writeln('Введите строку...');
  readln(s);
  max:='';
  for i:=1 to length(s) do
  begin
    if s[i]<>' ' then
      temp:=temp+s[i];
    if (s[i]=' ') or (i=length(s)) then
    begin
      if length(temp)>length(max) then
        max:=temp;
      temp:=''
    end;
  end;
  writeln('Максимальное слово в строке - ',max)
end.