Структура: Напечатать списки школ, занявших призовые места

const q=5;
      nom:array[1..q] of byte=(11,17,32,94,125);
type anketa=record
            fam:string[20];
            shk:byte;
            kls:byte;
            mst:byte;
            end;
var a:array[1..100] of anketa;
    n,i,j,k,p,imx,mx:byte;
begin
write('Количество участников олимпиады n=');
readln(n);
writeln('Введите сведения об участниках:');
for i:=1 to n do
 begin
  writeln('Участник ',i);
  with a[i] do
   begin
    write(' Фамилия: ');readln(fam);
    repeat
    writeln(' Номер школы 1-11 2-17 3-32 4-94 5-125');
    readln(k);
    until k in [1..5];
    shk:=nom[k];
    repeat
    write(' Класс (9-11): ');
    readln(kls);
    until kls in [9..11];
    repeat
    write(' Занятое место (1-10): ');
    readln(mst);
    until mst in [1..10];
   end;
 end;
writeln('Списки школ, занявших призовые места:');
k:=0;
for i:=1 to q do
 begin
  p:=0;
  for j:=1 to n do
  if(a[j].shk=nom[i])and(a[i].mst in [1..3]) then p:=1;
  if p=1 then
   begin
    k:=1;
    writeln('Школа № ',nom[i]);
   end;
 end;
if k=0 then writeln('Призовые места никому не присуждены!')
else
 begin
  mx:=1;
  imx:=1;
  for i:=1 to q do
   begin
    k:=0;
    for j:=1 to n do
    if(a[j].shk=nom[i])and(a[i].mst in [1..3]) then k:=k+1;
    if k>mx then
     begin
      mx:=k;
      imx:=i;
     end;
   end;
  writeln('Больше всех призовых мест заняла школа № ',nom[imx]);
  writeln('Списки учеников, занявших первые места:');
  for i:=1 to n do
  if a[i].mst=1 then writeln(a[i].fam,'  ',a[i].kls);
 end;
readln
end.

uses SysUtils,Classes;