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

var s:string;m,tmp,i:integer;beginreadln(s);for i:=1 to length(s) do beginif (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.