помогите, пожалуйста!
дана строка, содержащая текст. найти длину самого короткого и самого длинного слов. 

var  s:string;  max,min,i,k:integer;beginwrite('Введите строку: ');readln(s);s:=s+' ';for i:=1 to length(s) do  begin  if s[i]=' ' then     begin     if k>max then max:=k;     if (k<min) or (min=0) then min:=k;     k:=-1;     end;  k:=k+1;  end;writeln('Самое короткое: ',min,'; самое длиное: ',max);end.