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

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.