Язык Паскаль. Найти в предложении самое длинное слово

Задача. Дано предложение s. Найти и вывести самое длинное слово.

Будем пользоваться алгоритмом выделения слов из предложения, мы рассматривали его ранее в этом блоге. Длины слов сравним, осуществляя алгоритм поиска максимума, само слово сохраним в переменной ymax.

Программа решения задачи на языке Паскаль

var s,y,ymax:string; k,m:integer;

begin

  writeln('Введите предложение');

  readln(s);

  s:=s+' ';

  y:='';

  for k:=1 to length(s) do

   if s[k]=' ' then begin

                     if length(y)>m then begin m:=length(y); ymax:=y; end;

                     y:='';

                    end

               else y:=y+s[k];

  writeln('Самое длинное слово: ',ymax);

end.

Результат запуска программы