Написать программу в Паскале.Предложение состоит из слов, между словами один пробел, а после последнего слова точка. Найти длину самого длинного слова

var
  x: array of string;
  y: string;

begin
  //readln(y);
  y := Привет мой дорогой и прекрасный умопомрач мир;
  x := y.Remove(y.Length - 1).Split( );
  y := x[0];
  foreach w: string in x do
    if (y.Length       y := w;
  writeln(y.Length);
end.