Организовать файл записей HOSPITAL - Turbo Pascal (35866)

program xxx;
 
type hospital = record
    fam:string[20];
    imja:string[20];
    otchestvo:string[20];
    nomer:integer;
    god:integer;
    adres:string;
end;
 
const n=4; //кол-во пациентов
 
var
    f:file of hospital;
    a:array [1..n] of hospital;
    i,x:integer;
begin
    assign(f,'f.txt');
    rewrite(f);
    writeln('Введите данные 4-х пациентов:');
    for i:=1 to n do
        begin
            writeln('Фамилия ',i,'-ого пациента');
            readln(a[i].fam);
            writeln('Имя ',i,'-ого пациента');
            readln(a[i].imja);
            writeln('Отчество ',i,'-ого пациента');
            readln(a[i].otchestvo);
            writeln('Номер участка ',i,'-ого пациента');
            readln(a[i].nomer);
            writeln('Год рождения ',i,'-ого пациента');
            readln(a[i].god);
            writeln('Адрес ',i,'-ого пациента');
            readln(a[i].adres);
            write(f,a[i]);
        end;
    close(f);
    writeln('Введите номер участка');
    readln(x);
    writeln('Пациенты,проживающие на ',x,' участке:');
    reset(f);
    for i:=1 to n do 
        begin
        read(f,a[i]);
        if a[i].nomer = x then
            writeln(a[i].fam);
        end;
    readln();
end.