Найти самое короткое слово

uses crt;
var s,p,s1,s2:string;
    min,len,i:integer;
begin
  clrscr;
  writeLn('Vvedite stroku: ');//строка может идти и после точки
  readLn(s);
  writeln;
  p:=copy(s,1,pos('.',s)-1)+' ';//выделяем первое предложение до точки, но без нее и добавляем пробел
  s1:=''; min:=255;//за мин берем самое возможно длинное слово
  while pos(' ',p) > 0 do //пока в предложении есть пробелы
   begin
    len:=pos(' ',p)-1; //определяем длину слова от начала до пробела
      s1:=copy(p,1,len);//запоминаем это слово
    if len < min then //если оно короче предыдущего короткого
      begin
        s2:=s1; //запоминаем его еще раз
        min:=len;//запоминаем его длину
      end;
    delete(p,1,pos(' ',p));//удаляем просмотренное слово
   end;
  write(s2);//выводим самое короткое
  readLn;
end.

program str;
uses crt;
var
 s,smin: string;
 i,j,count,min,l: integer;
begin
 clrscr;
 count:=0;
 min:=256;
 l:=1;
 write('->');
 readln(s);
 for i:=1 to length(s) do
  begin
   if s[i]='.' then
    begin
     if count<min then
      begin
       min:=count;
       smin:='';
       for j:=i-min to i-1 do
        begin
         smin:=smin+s[j];
         l:=l+1;
        end;
      end;
   if min=256 then
    write(s);
    end
   else if s[i]=' ' then
    begin
     if count<min then
      begin
       min:=count;
       smin:='';
       for j:=i-min to i-1 do
        begin
         smin:=smin+s[j];
         l:=l+1;
        end;
      end;
     l:=1;
     count:=0;
    end
   else count:=count+1;
  end;
 write(smin);
end.