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

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.