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

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.

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