Напечатать все слова наименьшей длины

Program lab11;
Function minSlovo(s:String):String;
  var sl,min:String;
  begin
    While length(s)>0 do
      begin
        sl:=copy(s,1,pos(',',s)-1);
        delete(s,1,pos(',',s));
        if (length(sl)<length(min))or(length(min)=0) then min:=sl;
        if (length(s)>0)and(pos(',',s)=0) then s:=s+' '
      end;
    minSlovo:=min;
  end;  
Var 
  f:text;
  FName,s,min:String;  
begin
  write('Enter file name: ');
  readLn(FName);
  assign(f,FName);
  {$I-}
  Reset(f);
  {$I+}
  min:='';
  if IOResult=0 then
    begin
      While not EOF(f) do
        begin
          readln(f,s);
          if (length(minSlovo(s))<=length(min))or(length(min)=0) then min:=minSlovo(s)
        end;
      Writeln('min Slovo: ',min)
    end
  else
    Writeln('Sorry, this file can not be open');
end.

var s:string; min:byte; c:char; t:text;
begin
 assign(t,'c:\file.txt');
 reset(t);
 min:=255;
repeat
 read(t,c);
 s:='';
 while (c<>',') and (c<>'.') and (not eoln(t)) do
  begin
   s:=s+c;
   read(t,c);
  end;
 if eoln(t) then readln(t);
 if length(s)<min then min:=length(s);
until c='.';
close(t);
reset(t);
repeat
 read(t,c);
 s:='';
 while (c<>',') and (c<>'.') do
  begin
   s:=s+c;
   read(t,c);
  end;
 if eoln(t) then readln(t);
 if length(s)=min then write(s,'  ');
until c='.';
close(t);
end.