Описать файл записей с именем note.dat

uses crt;
const
  n = 8;
 
type
  note = record
    fm: string[20];
    im: string[20];
    tl: string[20];
    dt: array[1..3] of word;
  end;
 
var
  sp: array[1..n]of note;
  i, j, f: integer;
  fam: string[20];
  buf: note;
 
begin
  clrscr;
  writeln('Введите данные об ', n, ' абонентах:');
  for i := 1 to n do
  begin
    writeln('Абонент ', i);
    write(' Фамилия: ');readln(sp[i].fm);
    write(' Имя: ');readln(sp[i].im);
    write(' Телефон: ');readln(sp[i].tl);
    writeln(' Дата рождения: ');
    repeat
      write('  день(1..31): ');readln(sp[i].dt[1]);
    until sp[i].dt[1] in [1..31];
    repeat
      write('  месяц(1..12): ');readln(sp[i].dt[2]);
    until sp[i].dt[2] in [1..12];
    repeat
      write('  год(1900..2000): ');readln(sp[i].dt[3]);
    until (sp[i].dt[3] >= 1900) and (sp[i].dt[3] <= 2000);
  end;
  clrscr;
  {сортировка массива записей по дате}
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if sp[i].dt[3] > sp[j].dt[3] then
      begin
        buf := sp[i];
        sp[i] := sp[j];
        sp[j] := buf;
      end;
  writeln('Список абонентов:':45);
  writeln;
  writeln('-------------------------------------------------------');
  writeln('|   Фамилия   |    Имя    |  Телефон  | Дата рождения |');
  writeln('-------------------------------------------------------');
  for i := 1 to n do
  begin
    gotoXY(1, whereY);write('| ', sp[i].fm);
    gotoXY(15, whereY);write('| ', sp[i].im);
    gotoXY(27, whereY);write('| ', sp[i].tl);
    gotoXY(39, whereY);
    write('| ', sp[i].dt[1], '.', sp[i].dt[2], '.', sp[i].dt[3]);
    gotoXY(55, whereY);writeln('|');
  end;
  writeln('-------------------------------------------------------');
  repeat
    writeln('Введите номер телефона для поиска:');
    readln(fam);
    f := 0;
    for i := 1 to n do
      if sp[i].tl = fam then
      begin
        f := 1;
        write(sp[i].fm, ' ', sp[i].im, ' ', sp[i].tl, ' ');
        write(sp[i].dt[1], '.', sp[i].dt[2], '.', sp[i].dt[3]);
      end;
    if f = 0 then writeln('Такого номеранет. Повторите ввод.');
  until f = 1;
  readln
end.