файлы записей (Объединено), начал решать Опции

[AlexSt]

Пусть в файле фамилий ffam находятся фамилии студентов(одна запись - одна фамилия), в файле оценок fnote - в том же порядке оценки студентов( одна запись - массив оценок одного студента), в файле fchg - изменения к файлу оценок(структура записи:номер студента, совпадающий с номером фамилии в файле ffam, номер изменённой оценки, новая оценка). Записи упорядочены по номеру студента. Распечатайте список фамилий студентов, сдавших сессию на 4 и 5. Файлы ffam, fnote, fchg читаются один раз.
P. S. если Вам лень решать опишите хотя бы согласованное чтение файлов.

[AlexSt]

Пусть в файле фамилий ffam находятся фамилии студентов(одна запись - одна фамилия), в файле оценок fnote - в том же порядке оценки студентов( одна запись - массив оценок одного студента), в файле fchg - изменения к файлу оценок(структура записи:номер студента, совпадающий с номером фамилии в файле ffam, номер изменённой оценки, новая оценка). Записи упорядочены по номеру студента. Распечатайте список фамилий студентов, сдавших сессию на 4 и 5. Файлы ffam, fnote, fchg читаются один раз.

program file_stipendiya_n23;
type    fam=record
        f:string[20]
        end;
        note=record
        a:array[1..10] of byte
        end;
        chg=record
        ns,no,new:byte
        end;
var     ffam:file of fam;
        fnote:file of note;
        fchg:file of chg;
        p,f:string[20];
        i,j:integer;
        k,ns,no,new:byte;
        fam1:fam;
        note1:note;
        chg1:chg;
        a:array[1..10] of byte;
begin   writeln('введтите путь к файлу, содержащему фамилии студентов');
        readln(p);
        assign(ffam,p);
        writeln('введтите путь к файлу, содержащему оценки студентов');
        readln(p);
        assign(fnote,p);
        writeln('введтите путь к файлу, содержащему изменения к файлу оценок');
        readln(p);
        assign(fchg,p);
        reset(ffam); reset(fnote); reset(fchg);
        i:=0;
        while not eof(ffam) do
        begin i:=i+1;
              readln(f[i]);
              while not eof(fnote) do
              begin read(fnote,note1);
                    for i:=1 to 10 do{тут надо организовать цикл, но я не знаю сколько оценок, 10 – число с потолка}
                    readln(k)
                    if a[i]<4 then
                    begin b:=false
                          while not eof(fchg) do



              begin readln(k);
        end;