Обработка текста

[Absent]

Дана задача: Вывести фамилии студентов групп ЭТ9-97 и ЭТ10-97, имеющих хотябы одну неудовлетворительную оценку(математика, физика, информатика)

Не пойму в чем ошибка, помогите пожалуйста.

program SHip;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
       n=4;
type massChisl=array[1..n] of integer;
massText=array[1..n] of string;

Var

GRUPPA,familia:masstext;
k,fiz,mat,inf:masschisl;
i:integer;

begin
for i:=1 to n do
begin
write('vvedite familiy  ',i,'-ogo studenta  ');
readln(familia[i]);
end;

for i:=1 to n do
begin
write('vvedite nomer gruppi studenta    ',familia[i]);
readln(gruppa[i]);
end;

for i:=1 to n do
begin
write('vvedite ocenky po fizike studenta  ',familia[i]);
readln(fiz[i]);
end;

for i:=1 to n do
begin
write('vvedite ocenky po informatike studenta  ',familia[i]);
readln(inf[i]);
end;

for i:=1 to n do
begin
write('vvedite ocenky po matematike studenta  ',familia[i]);
readln(mat[i]);
end;

for i:=1 to n do
begin
if mat[i]<=2 or fiz[i]<=2 or inf[i]<=2 then
if gruppa[i]='ЭТ10-97' or  gruppa[i]='ЭТ9-97' then
writeln(familia[i]);
end;
readln;
end.

[Snoopy]

if mat[i]<=2 or fiz[i]<=2 or inf[i]<=2 then
if gruppa[i]='ЭТ10-97' or gruppa[i]='ЭТ9-97' then

if (mat[i]<=2) or (fiz[i]<=2) or (inf[i]<=2) then
if (gruppa[i]='ЭТ10-97') or  (gruppa[i]='ЭТ9-97') then

[Absent]

Большее спасибо, не пойму как я мог так тупо написать