Л-22 задача-1

Program p22_1;
type anketa=record //переменная содержащая (n-ное) кол-во пар (имя+фамилия+год обучения+литера класса)
fam:string[15]; //15 - длинна фамилии (можно изменить)
imya:string[12]; //12 - длинна имени (можно изменить)
god:byte;
liter:string[1]; //1 - кол-во символов в Литере (можно изменить)
end;
var a:array [1..100] of anketa;
n,i,j,m:byte;
z,x:string;
begin
z:= 'В восьмых классах ЕСТЬ однофамильцы '; //1 вариант рез-тата
x:= 'В восьмых классах НЕТ однофамильцев';  //2 вариант рез-тата
writeln ('Введите количество учащихся = ');
readln (n);
for i:= 1 to n do
begin
writeln ('Введите данные ',i,' ученика:');
write ('Имя: ');
readln (a[i].imya);
write ('Фамилия: ');
readln (a[i].fam);
write ('Год обучения: ');
readln (a[i].god);
write ('Литера класса: ');
readln (a[i].liter);
writeln;
end;
m:=0;
for i:= 1 to n-1 do
for j:= i+1 to n do
if (a[i].fam = a[j].fam) and (a[i].god = a[j].god) then m:=1; //проход по массиву данных, если год обучения (класс) и фамилия одинаковы, присваивает переменной m = 1
if m=1 then writeln (z) else writeln (x); //если m = 1 (есть однофамильцы) выводим 1 вариант рез-тата(z)
end.