Написать программу с использованием любого модуля

program pr1;
useshttps://www.cyberforum.ru/editpost.php?do=editpost&p=1741005
  CRT;
type data=record
  famil:string[25];
  name:string[25];
  otch:string[25];
  grup:string[25];
  kyrs:string[25];
  prop1:string[25];
  prop2:string[25];
  prop3:string[25];
end;
var
  a:array[1..50] of data;
  n,i,j,f,l:byte;
begin
  Clrscr;
repeat
  write(' vvedite obwee kol-vo studentov: ');
  readln(n);
if not (n in [1..50]) then write ('povtorite')
until n in [1..50];
for i:=1 to n do
  with a[i] do
begin
  writeln('student ',i, 'i');
  write('Vvedite famil: ');
  readln(famil);
  write('Vvedite imya: ');
  readln(name);
  write('Vvedite otchestvo: ');
  readln(otch);
  Write('Vvedite gruppy: ');
  readln(grup);
  write('Vvedite kurs: ');
  readln(kyrs);
  write('Vvedite kol-vo propuskov po bolezni: ');
  readln(prop1);
  write('Vvedite kol-vo progulov: ');
  readln(prop2);
repeat
  writeln('Naiti (1.Student net propuskov; 2.Stydent max progulov): ');
  readln(l);
if not (l in [1..2]) then write('Ne pravilno, povtorite');
until l in [1..2];
case l of
  1:prop3:= 'net propuskov';
  2:prop3:= 'max progulov';
end;
end;
for i:=1 to n do
 with a[i] do
if prop3='net propuskov' then
   writeln('Fio: ',famil,' ',name,' ',otch,'; Gruppa: ',grup,'; Kurs: ',kyrs,'; Kol-vo propuskov: ',prop2);
   readln;
end.