Дан текстовый файл. Переписать в новый файл все его строки, длина которых больше заданного числа. Входной файл «1.txt» содержит строковые словосочетания — Pascal(Паскаль)

Program PascalGuru;

var
  g, f: text;
  s: string;
  n: integer;

begin
  assign(f, '1.txt');
  reset(f);
  assign(g, '2.txt');
  rewrite(g);
  write('Vvvedite "zadannoe chislo":');
  readln(n);
  while not eof(f) do
  begin
    readln(f, s);
    if length(s) > n then
      writeln(g, s)
  end;

  close(f);
  close(g);
  writeln('Isxodnye dannye uspeshno zapisany v fail "2.txt"');
  readln;

end.