Файлы. Прочесть и напечатать - Pascal ABC

Формулировка задачи:

program student;
type stud=record
   grup:string[15];
   predmet1, predmet2, predmet3, predmet4, predmet5, imia, fam:string[15];
   ocenka1, ocenka2, ocenka3, ocenka4, ocenka5 :integer;
   end;
   myfile=file of stud;
var f1:myfile;
    i, n:integer;
    c1:stud;
 
begin
 writeln('Введите кол-во студентов');
 readln(n);
 assign(f1, 'd:\student.txt');
 rewrite(f1);
 for i:=1 to n do
   begin
   writeln('Введите группу студента:');
   readln(c1.grup);
   writeln('Введите Имя студента:');
   readln(c1.imia);
   writeln('Введите Фамилию :');
   readln( c1.fam);
   writeln('Введите ПРЕДМЕТ1:');
   readln(c1.predmet1);
   writeln('Введите ОЦЕНКУ1:');
   readln(c1.ocenka1);
   writeln('Введите ПРЕДМЕТ2:');
   readln(c1.predmet2);
   writeln('Введите ОЦЕНКУ2:');
   readln(c1.ocenka2);
   writeln('Введите ПРЕДМЕТ3:');
   readln(c1.predmet3);
   writeln('Введите ОЦЕНКУ3:');
   readln(c1.ocenka3);
   writeln('Введите ПРЕДМЕТ4:');
   readln(c1.predmet4);
   writeln('Введите ОЦЕНКУ4:');
   readln(c1.ocenka4);
   writeln('Введите ПРЕДМЕТ5:');
   readln(c1.predmet5);
   writeln('Введите ОЦЕНКУ5:');
   readln(c1.ocenka5);
   write(f1, c1);
   end;
 close(f1);
 end.

Вывести файл на печать. Напечатать группу, и фамилию студентов, у которых больше трёх троек. Посчитать средний бал. Вывод файла есть:

program student;
type stud=record
   grup:string[15];
   predmet1, predmet2, predmet3, predmet4, predmet5, imia, fam:string[15];
   ocenka1, ocenka2, ocenka3, ocenka4, ocenka5 :integer;
   end;
   myfile=file of stud;
var f1:myfile;
    i, n:integer;
    c1:stud;
 
begin
 writeln('Введите кол-во студентов');
 readln(n);
 assign(f1, 'd:\student.txt');
 reset(f1);
 writeln('Группа    Имя    Фамилия   Предмет1      Оценка1      Предмет2   Оценка2  Предмет3   Оценка3   Предмет4           Оценка4    Предмет5   Оценка5');
 
 for i:=1 to n do
   begin
   read(f1, c1);
   write(c1.grup:6, c1.imia:7, c1.fam:8, c1.predmet1:17, c1.ocenka1:5, c1.predmet2:17,  c1.ocenka2:6, c1.predmet3:15, c1.ocenka3:7, c1.predmet4:22, c1.ocenka4:10, c1.predmet5:12, c1.ocenka5:10 );
   writeln;
   end;
   
 close(f1);
 end.

Как теперь вывести этих студентов. Чисто фактически, я понимаю что нужен цикл поиска 3-ки среди других оценок (if, for, then, else и другая беда), но как это записать не понимаю.

Решение задачи: «Файлы. Прочесть и напечатать»

Листинг программы

...
for i:=1 to n do
  begin
  read(f1, c1);
  write(c1.grup:6, c1.imia:7, c1.fam:8, c1.predmet1:17, c1.ocenka1:5, c1.predmet2:17, *c1.ocenka2:6, c1.predmet3:15, c1.ocenka3:7, c1.predmet4:22, c1.ocenka4:10, c1.predmet5:12, c1.ocenka5:10 );
  writeln;
  end; //здесь заканчивается вывод всего файла.
 
  //Теперь, чтобы вывести нужных нам студентов:
   
 reset(f1);  //открываем файл заново на чтение
   
 for i := 1 to n do
 begin
   Read(f1, c1);
   k := 0;  //в этой переменной будем считать количество троек. Не забудьте объявить ее в разделе var
   if c1.ocenka1 = 3 then k := k + 1;  
   if c1.ocenka2 = 3 then k := k + 1;
   if c1.ocenka3 = 3 then k := k + 1;
   if c1.ocenka4 = 3 then k := k + 1;
   if c1.ocenka5 = 3 then k := k + 1;
   if k > 3 then WriteLn(c1.grup, ' ', c1.fam, '; Ср. балл = ', (c1.ocenka1 + c1.ocenka2 + c1.ocenka3 + c1.ocenka4 + c1.ocenka5) / 5:0:1);
 end;   
 close(f1);
 end.

Объяснение кода листинга программы

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