Строковый тип. Найти длину самого короткого слова

uses crt;
var s,sl: string;
    i,dmin: integer;
begin
write('Введите строку ');
readln(s);
s:=s+' '; sl:='';dmin:=length(s);
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i]
       else
       begin
       if (length(sl)<dmin) and (length(sl)<>0) then
          dmin:=length(sl);
       sl:='';
       end;
writeln ('Самое короткое слово длиной в ',dmin,' символов');
end.

uses crt;
var s:string;
    c:char;
    n,i,j,k,mn:byte;
begin
writeln('Введите строку из русских слов, разделенных пробелами, конец ввода enter');
s:='';
repeat
c:=readkey;
if c in ['А'..'я','Ё','ё',' '] then
 begin
  write(c);
  s:=s+c;
 end
else if c=#13 then writeln
else c:=#0;
until c=#13;
n:=length(s);
mn:=n;
i:=1;
while i<=n do
if (s[i]<>' ')and((i=1)or(s[i-1]=' ')) then
 begin
  k:=0;
  j:=i;
  while(j<=n)and(s[j]<>' ') do
   begin
    k:=k+1;
    j:=j+1;
   end;
  if k<mn then mn:=k;
  i:=i+k;
 end
else i:=i+1;
write('Длина самого короткого слова=',mn);
end.