Задано предложение-строка. Написать программу, которая находит самое длинное слово, встречающееся в предложении — Pascal(Паскаль)

uses crt;

var
  s: string;
  i, k, n, mx, nmx, kmx: byte;

begin
  clrscr;
  write('Строка:  ');
  readln(s);
  s := s + ' ';
  mx := 0;
  nmx := 1;
  i := 1;
  while i <= length(s) do
    if s[i] <> ' ' then
    begin
      n := i;
      k := 1;
      while s[n + k] <> ' ' do
        k := k + 1;
      if k > mx then
      begin
        mx := k;
        nmx := n;
      end;
      i := i + k + 1;
    end
    else
      i := i + 1;
  writeln('Самое длинное слово ', copy(s, nmx, mx));
  readln

end.