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

[AlexSt]

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

[Lapp]

Я так понял, что ты работаешь с типизированными файлами. А для них нужно точно знать формат записи. Ты описал общую структуру записи, но не сказал, какой тип имеют поля в ней. Смею предположить, что все числа описаны как целые.
Для работы со вторым файлом тебе нужен массив оценок - точнее, его тип. Делаешь в проге тип и файл этого типа, а потом читаешь. Допустим, всего оценок 10. Тогда можно делать примерно так:

const
  NMarks=10;
type
  tMarks=array[1..NMarks]of integer;
var
  Marks:tMarks;
  Fm:file of tMarks;
.....
  Assign(Fm,'marksfilename');
  ReSet(Fm);
  while not EoF(Fm) do begin
    Read(Fm,Marks);
    ......
  end;

Разберем работу с третьим файлом.. В своей программе делаешь тип для такой записи (номер студента, номер оценки, сама оценка) и описываешь файл таких записей. Потом читаешь из этого файла..

type
  tCorrection=record
    Student,Mark,Value:integer
  end;
var
  Coorrection:tCorrection;
  Fc:file of tCorrection;
.....
  Assign(Fc,'filename');
  ReSet(Fc);
  while not EoF(Fc) do begin
    Read(F,Correction);
    with Correction do begin
      ......
    end
  end

Эти два фрагмента демонстрируют общие приципы работы с такими файлами по отдельности. Тебе нужно будет вести чтение из всех трех файлов параллельно: читаешь фамилию, потом читаешь оценки, потом возможно читаешь исправления (возможно, несколько раз) и результат после обработки выводишь на печать - а потом читаешь следующую фамилию..