Нахождение самого длинного слова в тексте. найти самое длинное слово в тексте. если таких слов несколько, то взять последнее. написать на паскале

var
  x: array of string;
  y: string;

begin
  readln(y);
  x := y.Split(' ');
  y := x[0];
  foreach w: string in x do
    if (y.Length <= w.Length) then
      y := w;
  writeln(y);
end.