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