Имеется текстовый файл.переписать в другой файл те его строки,в которых имеется более 30-ти символов.

Const
  n = 30;

var
  fin, fout: Text;
  s: string;

begin
  Assign(fin, 'input.txt');
  Reset(fin);
  Assign(fout, 'output.txt');
  Rewrite(fout);
  while not eof(fin) do
  begin
    readln(fin, s);
    if length(s) > n then writeln(fout, s)
  end;
  Close(fin);
  Close(fout)
end.