Вычислить длину самого короткого слова в предложении из трех слов

uses crt;
var s:string;
i,k,len,min:byte;
begin
clrscr;
k:=0;
repeat
writeln('Vvedite predlozenie iz 3 slov');//раз надо из трех слов, то проверим
readln(s);
for i:=1 to length(s) do
if s[i]=' 'then k:=k+1;
if k<>2 then writeln('V predlozenii ne 3 slova. Povtorite vvod.');
until k=2;
s:=s+' ';//добавим пробел в конец
min:=255; //за мин примем самое большое
while pos(' ',s)>0 do //пока есть пробелы
begin
len:=pos(' ',s)-1; //определим длину слова
if len<min then min:=len;//если меньше мин, то мин
delete(s,1,pos(' ',s));//удалим это слово
end;
write('Dlina samogo korotkogo slova=',min);
readln
end.

k:=0; //убрать
repeat
writeln('Vvedite predlozenie iz 3 slov');//раз надо из трех слов, то проверим
readln(s);
k:=0; //вставить
for i:=1 to length(s) do
if s[i]=' 'then k:=k+1;