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

Var s, s1, max:string;

begin

write ('Введите строку: ') ;

readln (s) ;

s:=s+' ';

max:='';

while Pos (' ', s) >0 do

begin

s1:=Copy (s, 1, Pos (' ', s) - 1) ;

delete (s, 1, Pos (' ', s)) ;

if Length (s1) >Length (max) then max:=s1;

end;

writeln ('Самое длинное слово в строке = ', max) ;

readln;

end.

В качестве разделителя, используйте пробел.