найти самое короткое слово и удалить его из файла

[Pihan]

помогите пожалуйста основное сделал а вот осталось найти самое короткое слово и удалить его из файла.... патом записать в новый файл....

uses crt;
var f1, f2: text;
{k,n array [1..50] of integer;}
mn: set of char;
kb,nsl: integer;
t: string;
procedure VIV_File(var: f: text; t: string;);
begin
   reset(f);
   writelen;
   writelen(t);
   while not eof(f) do
           begin readln(f,t);
                 writeln(t);
            end;
end;
    BEGIN
  assign(f1'text1.txt');
  assign(f2'text2.txt');
    {$I-}reset(f1);{$I+}
    if IOresult<>0 then
            begin writeln('sozdai file');
                  readkey;
                  exit
            end
                   else
                      begin
                         mn:=['A'..'z'];

                 nsl:=0;
                 rewrite(f2);
            while not seekeof(f1) do
               begin
             readln(f1,t);



             writeln(f2,minslovo);
             end;

              if ch in mn then inc(kb)

[Stilet]

Вот допустим код поиска самого короткого слова в строке:

 var l,e,s:string;i:integer;
begin
 s:='This is so little word';e:='';l:='';
 i:=1; while i<length(s) do begin
  e:='';
  while (i<length(s))and(s[i]<>' ') do begin
   e:=e+s[i]; inc(i);
  end;
  if (length(l)>length(e))or(l='') then l:=e;
  inc(i);
 end;
 write(l);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Привяжи его к чтенью из файла.

[Pihan]

помогло, спасиб)