Задача на "записи" (Паскаль)

[patisson74]

Есть информация о результатах зимней сессии в группе ИЗ-00. Написать программу, которая вводит информацию и печатает фамилии студентов, имеющих хотя-бы одну задолженность.

Вот что у меня получилось, может посмотрите, все ли я сделал так, как нужно? :

program students_;

uses crt;

type student = record
     familia: string[20];
     pr1,pr2,pr3,pr4,pr5: 1..5;
     end;
type
     mymas=array [1..30] of student;

var mas1: mymas;
    i,n: integer;

procedure Vvod (var mas:mymas);

begin

writeln('Введите количество студентов:   ');

readln(n);

writeln;

 for i:=1 to n do
   with mas[i] do

 begin
   write ('Введите фамилию студента : ');
   readln (familia);
   write ('Введите оценку по истории : ');
   readln (pr1);
   write ('Введите оценку по англ. языку : ');
   readln (pr2);
   write ('Введите оценку по алгебре : ');
   readln (pr3);
   write ('Введите оценку по прогаммированию : ');
   readln (pr4);
   write ('Введите оценку по религиеведению : ');
   readln (pr5);
 end;
end;
 procedure Vivod (var mas:mymas);
 begin
   for i:=1 to n do
   with mas[i] do
   if (pr1<=2)or(pr2<=2)or(pr3<=2)or(pr4<=2)or(pr5<=2)
   then writeln ('Задолженник : ',familia)

 end;
Begin
  clrscr;
  Vvod(mas1);
  Vivod(mas1);

readln;

End.

[dr.Chas]

Ну да, а что ещё надо? Можно так:

program students_;


type student = record
     familia: string[20];
     pr1,pr2,pr3,pr4,pr5: 1..5;
     end;



var mas1: array [1..30] of student;
    i,n: integer;

procedure Vvod ;

begin

writeln('Введите количество студентов:   ');

readln(n);

writeln;

 for i:=1 to n do
   with mas1[i] do

 begin
   write ('Введите фамилию студента : ');
   readln (familia);
   write ('Введите оценку по истории : ');
   readln (pr1);
   write ('Введите оценку по англ. языку : ');
   readln (pr2);
   write ('Введите оценку по алгебре : ');
   readln (pr3);
   write ('Введите оценку по прогаммированию : ');
   readln (pr4);
   write ('Введите оценку по религиеведению : ');
   readln (pr5);
 end;
end;
 procedure Vivod ;
 begin
   for i:=1 to n do
   with mas1[i] do
   if (pr1<=2)or(pr2<=2)or(pr3<=2)or(pr4<=2)or(pr5<=2)
   then writeln ('Задолженник : ',familia)

 end;
Begin

  Vvod;
  Vivod;

readln;

End.