Добрый день.
Есть рабочая задачка.
нужно просто переделать программу с использованием структуры данных файл (типизированный файл).

Основная часть.

uses crt,modul;
begin
readln(n);
cicle(a);
cicle3;
cicle2;
end.

модуль

unit modul;

interface
  const m=50;
type
    clas=record
    name : string;
    day  : byte;
    month: byte;
    year : word;
end;

var
  a: array[1..m] of clas;
  i,n: integer;
  
  procedure cicle(var a: array[1..m] of clas);
  procedure cicle2;
  procedure cicle3;
  
implementation

procedure cicle(var a: array[1..m] of clas);
   var i: integer;
   begin
   for i:=1 to n do
begin
      writeln('Введите данные ',i,'го ученика:');
      with a[i] do
   begin
   write('Фамилия,инициалы: ');
   readln(name);

   repeat
   write('День рождения: ');
   readln(day);
   until a[i].day in [1..31];

   repeat
   write('Месяц рождения: ');
   readln(month);
   until a[i].month in [1..12];

   repeat
   write('Год рождения: ');
   readln(year);
   until (a[i].year>1900)and(a[i].year<2012);
   end;
end;
     end;
 
procedure cicle2;
   var i: integer;
   begin
     writeln();
     writeln('Список учеников рожденных в мае:');
     for i:=1 to n do
     if a[i].month=5 then writeln(i,'. ',a[i].name);
   end;

procedure cicle3;
   var i: integer;
   begin
     writeln();
     writeln('Список класса:');
     for i:=1 to n do
     writeln(i,' ',a[i].name,' Дата рождения: ',a[i].day,'.',a[i].month,'.',a[i].year);
   end;


begin
     write('Ведите колличесвто учеников: ');
end.