выборочное копирование информации из файла

[evg94]

задача такова:
имеется текстовый файл. Переписать его с строки в другой файл,строки короче 30 символов не переписывать.

вот то немногое, что смогла написать... и то оно зациклилось...

program txt_file;
var
  f,fil:text;
  st:char;
  dl:integer;
begin
  assign (f,'C:\vchod.txt');
  reset(f);
  while not EOF(f) do
        begin
          dl:=0;
          while not EOLN(f) do
            begin
             begin
             read (f,st);
             dl:=dl+1;
             end;
        if dl>30 then
           begin
              assign(fil,'C:\itog.txt');
              rewrite (fil);
              begin
              while not EOLN(f)do
              read (f,st);
              write (fil,st);
              end;
           end
           else readln(f);
           end;
        end;
  close(f);
  close (fil);
end.

[rubius2008]

var s:string;
...
assign (f,'C:\vchod.txt'); reset(f);
assign(fil,'C:\itog.txt');   rewrite (fil);
while not eof(f) do begin
  readln(f,s);
  if length(s)>=30 then writeln(fil,s)  
end;
close(f);
close (fil);