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

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