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

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 <= w.Length) then       y := w;   writeln(y.Length); end.