Этот код на Паскале отвечает за нахождение самого длинноватого слова в

Var
s,st,smax: string;
i:byte;
BEGIN
writeln('Вводите строчки. Конец ввода: lt;Entergt; в начале строчки.');
readln(s);
st:=''; smax:='';
while slt;gt;'' do begin
 if s[length(s)]lt;gt;' ' then s:=s+' ';
 for i:=1 to length(s) do
  if s[i]lt;gt;' ' then st:=st+s[i]
  else begin
  if length(st)gt;length(smax) then smax:=st;
  st:='';
  end;
 readln(s);
end;
writeln('Самое длинноватое слово: ',smax);
writeln('Кол-во букв: ',length(smax));
END.

Пример (начало стихотворения The Road Not Taken, Роберт Ли Фрост):
Вводите строчки. Конец ввода: lt;Entergt; в начале строчки.
Two roads diverged in a yellow wood,
And sorry I could not travel both
And be one traveler, long I stood
And looked down one as far as I could
To where it bent in the undergrowth.

Самое длинноватое слово: undergrowth.
Кол-во букв: 12

Так пойдет?

//Pascal
var s, s1, max: string;
begin
  writeln('Введите !exit для выхода.');
  repeat
    write('Введите строчку: ');
    readln(s);
    if s lt;gt; '!exit' then
    begin
      s := s + ' '; // max:='';
      while Pos(' ', s) gt; 0 do
      begin
        s1 := Copy(s, 1, Pos(' ', s) - 1);
        Delete(s, 1, Pos(' ', s));
        if Length(s1) gt; Length(max) then max := s1;
      end;
    end;
  until s = '!exit';
  writeln('Самое длинноватое слово посреди всех строк = ', max);
  writeln('Кол-во букв: ', Length(max));
  readln;
end.

Пример:
Введите !exit для выхода.
Введите строку: test
Введите строку: testtest
Введите строчку: testtesttest
Введите строчку: 123
Введите строку: 1234
Введите строку: 12345
Введите строчку: !exit
Самое длинное слово посреди всех строк = testtesttest
Кол-во букв: 12