Имеется задача. Преобразовать её, чтобы она читала данные из файла, и выводила результат в файл - Pascal ABC

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

program stipendia;
 uses CRT;
 const max=30;
 type TStud=record
            fam:string[15];
            oc: array[1..3]of byte;
            sr: real;
 end;
  var sp:array[1..max] of TStud;
   n,i,j,k,p,t: integer;
{---------------------------------------}
  begin
  clrscr;
   repeat
    write ('Kolichestvo studentov do ',max,' n=');
     readln(n);
      until n in [1..max];
        for i:=1 to n do
         begin 
          writeln ('Student № ',i);
          write ('  Familia: '); readln (sp[i].fam);
          sp[i].sr:=0;
           for j:=1 to 3 do
            begin
             repeat
              write('  Ocenka ',j,'=');
              readln(sp[i].oc[j]);
             until sp[i].oc[j] in [3..5];
             sp[i].sr:=sp[i].sr+sp[i].oc[j];
            end;
           sp[i].sr:=sp[i].sr/3;
         end;
{---------------------------------------}
clrscr;
writeln ('SPISOK GRUPI:');
writeln;
writeln ('Familia | Ocenki | Srednii bal');
writeln;
 for i:=1 to n do
  begin
   write (sp[i].fam);
   write (' | ');
      for j:=1 to 3 do
        write (sp[i].oc[j]:3);
   write (' | ');
   write (sp[i].sr:6:2);
   writeln;
  end;
write ('Press Enter...');
readln;
{---------------------------------------}
clrscr;
writeln ('NAZNACHENA POVISHENNAYA STIPENDIA:');
 t:=0;
writeln;
writeln ('Familia | Ocenki | Srednii bal');
writeln;
 for i:=1 to n do
  if sp[i].sr=5.0 then
   begin
    t:=1;
     write (sp[i].fam);
     write (' | ');
      for j:=1 to 3 do
        write (sp[i].oc[j]:3);
     write (' | ');
     write (sp[i].sr:6:2);
     writeln;
  end;
if t=0 then writeln ('Naznachenih na povishennuu stipendiu NET!');
write('Press Enter...');
readln;
{---------------------------------------}
clrscr;
writeln ('NAZNACHENA OBICHNAYA STIPENDIA');
k:=0;
writeln;
writeln ('Familia | Ocenki | Srednii bal');
writeln;
 for i:=1 to n do
   begin
    p:=0;
     for j:=1 to 3 do
      if (sp[i].oc[j]=5)or(sp[i].oc[j]=4) then p:=p+1;
        if(p=3)and(sp[i].sr<5.0) then
        begin
          k:=1;
          write (sp[i].fam);
          write (' | ');
            For j:=1 to 3 do
          write (sp[i].oc[j]:3);
          write (' | ');
          write (sp[i].sr:6:2);
          writeln;
        end
   end;
If k=0 then writeln ('Naznachenih na obichnuu stipendiu NET');
readln;
end.

Вот имеется такая программа в ней мы вводим фамилии студентов, их оценки. И потом программа считает, в зависимости от оценок, на какую стипендию претендует студент. Но в программе надо вводить данные. Задача состоит в следующем. Чтобы в отдельный введенный файл были введены Фамилии + 3 оценки (3,4,5) и результаты выведены в 2 файла - 1ый для повышенной стипендии (53 строка) и 2ой файл для обычной стипендии (75 строка). Но в задаче надо вводить количество студентов, как преобразовать, чтобы он брал только введенные значение. Если вдруг кто возьмется за задачу, отметьте комментариями где вы что-то изменили, хочу разобраться в задаче, но всё не пойму как. Заранее Спасибо!

Решение задачи: «Имеется задача. Преобразовать её, чтобы она читала данные из файла, и выводила результат в файл»

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

 if not(sp[n].oc[1] in [2..5])or not(sp[n].oc[2] in [2..5])or not(sp[n].oc[3] in [2..5]) then
  begin
   writeln('В файле недопустимые оценки');
   halt;//если есть плохие, выходим из программы
 end;

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

В первой строке кода проверяется условие с помощью оператора if.
В условии используется цикл for, который перебирает элементы массива sp[n].oc.
Для каждого элемента массива проверяется, находится ли он в диапазоне от 2 до 5 с помощью оператора in.
Если условие не выполняется, то выводится сообщение об ошибке 'В файле недопустимые оценки'.
С помощью оператора halt программа завершается, если найдены недопустимые оценки.