Составьте программу осуществляющую поиск однофамильцев, обучающихся в одном классе

uses crt;

type uchenik=record

fam:string[20];

im:string[20];

kls:string[3];

end;

var a:array[1 ... 100] of uchenik;

n, i, j, k:byte;

begin

clrscr;

writeln ('Сколько учеников n=') ;

readln (n) ;

writeln ('Введите данные о ', n,' учениках:') ;

for i:=1 to n do

begin writeln ('Ученик ', i) ;

write (' Фамилия: ') ;

readln (a[i]. fam) ;

write (' Имя: ') ;

readln (a[i]. im) ;

write (' Класс (год+буква, 11 а) : ') ;

readln (a[i]. kls) ;

end;

writeln ('Однофамильцы в одном классе:') ;

k:=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]. kls=a[j]. kls) then

begin

k:=1;

writeln (a[i]. kls,' ', a[i]. fam,' ', a[i]. im,' ', a[j]. fam,' ', a[j]. im) ;

end;

if k=0 then write ('Однофамильцев в одном классе нет!') ;

readln

end.