Создать файл, содержащий сведения о телефонах абонентов - Pascal ABC

Формулировка задачи:

Создать файл, содержащий сведения о телефонах абонентов. Каждая запись содержит поля: фамилия абонента, год установки телефона, номер телефона. Количество записей произвольное. Написать программу, выводящую на экран следующую информацию: - по фамилии абонента выдаётся номер телефона; - определяется количество установленных телефонов с XXXX года. Программа ввода:

type t = record
 
  name, surname: string[64];
 
  year, number: integer;
 
end;
 
var f: file of t; te: t; fn: string[64]; n, i: integer;
 
begin
 
  readln(fn);
  readln(n);
 
  rewrite(f, fn);
 
  for i := 1 to n do begin
 
    with te do begin
 
      readln(name);
      readln(surname);
      readln(year);
      readln(number);
    
    end;
 
    write(f, te);
 
  end;
 
  close(f);
 
end.

Программа вывода:

type t = record
 
  name, surname: string[64];
 
  year, number: integer;
 
end;
 
var f: file of t; te: t; fn, surname: string[64]; n, i, c, year: integer;
 
begin
 
  readln(fn);
 
  reset(f, fn);
 
  n := 0;
 
  while not eof(f) do begin
 
    inc(n);
 
    read(f, te);
 
    tea[n] := te;
 
  end;
 
  close(f);
 
  readln(surname);
 
  for i := 1 to n do if (tea[i].surname = surname) then writeln(tea[i].number);
 
  readln(year);
 
  c := 0;
 
  for i := 1 to n do if (tea[i].year >= year) then inc(c);
 
  writeln(c);
 
end.

В программе ввода, например, в строке rewrite(f, fn) ошибка - нет перегруженной подпрограммы с таким количеством параметров. Что это значит? Как исправить ошибку?

Решение задачи: «Создать файл, содержащий сведения о телефонах абонентов»

textual
                            Листинг программы 
                        
                            rewrite(f);