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