Имеется текстовый файл.Переписать в другой файл те его строки,в которых имеется более 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.

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