Вывести самое короткое слово в предложении

uses crt;
var s,sl,ms:string;
    c:char;
    k,mn:integer;
begin
writeln('Введите предложение из русских слов, разделеных пробелами, окончание ввода точка');
s:=''; //вся строка, нужна для ввода
sl:=''; //текущее слово
k:=0;  //его длина
mn:=255;//мин длина пока =255
repeat
c:=readkey;//итаем нажатый символ
if (c in ['А'..'я','Ё','ё','.']) //если русская буква или точка
or((c=' ')and(s<>'')and(s[length(s)]<>' '))then//или пробел и не первый
                                                 //и перед ним не пробел
 begin
  write(c);//выводим символ на экран
  s:=s+c;//добавляем в строку
  if not(c in [' ','.']) then//если буква
   begin
    k:=k+1;//считаем кол-во букв
    sl:=sl+c;//собираем слово по буквам
   end
  else
   begin
   if length(sl)<mn then//ищем самое короткое слово
    begin
     mn:=k;
     ms:=sl;
    end;
   sl:='';
   k:=0;
  end;
 end;
if c='.' then writeln;
until c='.';//нажатие клавиши "точка" - признак окончания ввода
writeln('Первое самое короткое слово: ',ms);
writeln('Количество букв=',mn);
end.