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

[AlexSt]

Всем спасибо, сам решил, если кому надо вот true решение:

program file_stipendiya_n23;
uses    crt;
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,exam,kolstud:integer;
        mark:byte;
        b:boolean;
        fam1:fam;
        note1:note;
        chg1:chg;
        a:array[1..10] of byte;
begin   clrscr;
        writeln('введтите путь к файлу, содержащему фамилии студентов');
        readln(p);
        assign(ffam,p);
        rewrite(ffam);
        writeln('введите фамилии студентов, окончание ввода - "0"');
        kolstud:=0;
        repeat readln(f);
               if f<>'0' then begin write(ffam,fam(f));
                                    kolstud:=kolstud+1
                              end;
        until f='0';    close(ffam);
                        reset(ffam);
        writeln('введтите путь к файлу, содержащему оценки студентов');
               readln(p);
        assign(fnote,p);
        writeln('введите количество экзаменов');
               readln(exam);
        writeln('введите оценки каждого студента');
        rewrite(fnote);
        for i:=1 to kolstud do
              begin writeln('оценки студента № ',i,':');
                    for j:=1 to exam do
                    readln(a[j]);
                    write(fnote,note(a));
              end;  close(fnote);
                    reset(fnote);
        writeln('введтите путь к файлу, содержащему изменения к файлу оценок');
        readln(p);
        assign(fchg,p);
        rewrite(fchg);
        with chg1 do
        repeat writeln('введите номер студента, номер изменённой оценки и новую оценку, окончание ввода - "0"');
               readln(ns);
               readln(no);
               readln(new);
               if (ns<>0)and(no<>0)and(new<>0) then write(fchg,chg1);
        until (ns=0)and(no=0)and(new=0);     close(fchg);
                                             reset(fchg);
        b:=true; j:=0;
        writeln('студенты, получающие стипендию:');
        while not eof(ffam) do
        begin j:=j+1;
              read(ffam,fam(f));
              read(fnote,note(a));
              for i:=1 to 2 do
              if a[i]<4 then with chg1 do
                             begin b:=false;
                                   while not eof(fchg) do
                                   begin read(fchg,chg1);
                                    if (ns=j)and(no=i)and(new>3) then b:=true
                                   end;
                                   close(fchg);
                                   reset(fchg);
                             end;
              if b=true then writeln(f);
        end;
        readln;
end.

P. S. помогите с графикой!