Дано предложение. Напечатать его самое длинное слово (принять, что такое слово — единственное) — Pascal(Паскаль)

var
s:string;
a:array[1..100]of string;
i,max,k,nom:integer;
begin
readln(s);
s:=' '+s;
for i:=1 to length(s) do
if s[i]=' 'then inc(k) else a[k]:=a[k]+s[i];
max:=length(a[1]);
nom:=1;
for i:=1 to k do
if length(a[i])>max then 
begin
max:=length(a[i]);
nom:=i;
end;
writeln(a[nom]);
readln;
end.