Распечатать фамилии студентов, имеющих задолженности

const n=3; 
type student=record 
familia:string[15]; 
nomer:string[70]; 
end; 
 
var a:array[1..n] of student; 
b:array[1..3] of byte; 
i,j:byte; 
begin 
for i:=1 to n do 
begin 
write('Введите фамилию студента: ');readln(a[i].familia); 
write('Введите номер группы: ');readln(a[i].nomer); 
 
for j:=1 to 3 do 
begin 
write('Введите оценку ',j,': ');readln(b[i]); 
end;end; 
 
for j:=1 to n do 
with a[j] do 
if b[j]<=2 then 
 
begin 
write('Фамилия задолжника: ',familia);writeln; 
end; 
end.

{Опpеделить комбиниpованный тип для пpедставления анкеты студента-пеpвокуpсника, 
включающей в себя его фамилию (до 12 букв), номеp гpуппы (целое от 1 до 100), 
оценки по тpем пpедметам (математика, физика, пpогpаммиpование). 
Написать пpогpамму, котоpая pаспечатывает из этой инфоpмации фамилии студентов,
имеющих задолжности.}
const
  n = 3;
 
type
  student = record 
    familia: string[12]; 
    nomer: 1..100; 
    mat, fiz, prog: byte;
  end;
 
var
  a: array[1..n] of student; 
  i: byte;
 
begin
  for i := 1 to n do 
  begin
    write('Введите фамилию студента: ');
    readln(a[i].familia);
    write('Введите номер группы: ');
    readln(a[i].nomer);
    write('Введите оценку (математика): ');
    readln(a[i].mat);
    write('Введите оценку (физика): ');
    readln(a[i].fiz);
    write('Введите оценку (пpогpаммиpование): ');
    readln(a[i].prog);
  end;  
  for i := 1 to n do 
    with a[i] do 
    begin
      if (mat <= 2) or (fiz <= 2) or (prog <= 2) then 
        writeln('Фамилия задолжника: ', familia);
    end; 
end.