Написать в паскаль. вводится предложение. определить длину самого длинного слова.

Var s:string;
m,tmp,i:integer;
begin
readln(s);
for i:=1 to length(s) do begin
if (s[i]<>' ') then inc(tmp)
else begin 
  if tmp>m then m:=tmp;
  tmp:=0;
  end;
end;
if tmp>m then m:=tmp;
writeln(m);
end.