решите задание 3Задание 2. Создайте файл информации по итогам сессии result.dat. Для каждой группы каждого курса в файл заносится информация(количество курсов и групп на курсе фиксировано, сами номера курсов и групп в записи не хранятся):Количество студентов в группе;Количество допущенных к сессии;Количество сдавших на «отлично»;Количество сдавших на «хорошо» и «удовлетворительно»;Количество получивших «неудовлетворительно». Задание 3. Используя прямой доступ к файлу result.dat. (см. задание 2), выведите информацию о результатах сессии по заданному курсу и номеру группы.

На всякий случай, программа обрабатывающая типизированные файлы.

type
RC=record
Kol:integer;
Dop:integer;
Kol5:integer;
Kol43:integer;
Kol2:integer
end;
var
n:integer;
r:RC;
f:file of RC;
begin
Assign(f,result.dat);
Reset(f);
// так делается проход по всему файлу
while not Eof(f) do begin
  read(f,r);
  Writeln(r.Kol,,,r.Dop,,,R.Kol5,,,r.Kol43,,,r.Kol2);
  end;
// а так впрямую выбирается запись с указанным номером n (нумерация от 0)
  n:=1;
  seek(f,n);
  read(f,r);
  Writeln(r.Kol,,,r.Dop,,,R.Kol5,,,r.Kol43,,,r.Kol2);
  n:=FileSize(f);
  Writeln(Число записей в файле- ,n);
Close(f)
end.