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