Напишите программу, которая будет выводить на экран фамилии и имена трех лучших участников многоборья

program z1;
type student = record
    fam: string[20];
    name: string[15];
    bali: record
    per: 1..10;
    vtor: 1..10;
    tret: 1..10;
    chet: 1..10;
    end;
    end;
    anketa= array of student;
    mas=array [1..100] of integer;
var a:anketa;
    b:mas;
  p,i, n,max1,max2,max3,nmax1,nmax2: integer;
begin
  writeln('Сколько учасников?');
  readln(n);
  setlength(a,n);
  for i := 0 to n-1 do
  begin
    writeln('введите фамилию');
    readln(a[i].fam);
    writeln('введите имя');
    readln(a[i].name);
    writeln('первый бал');
    readln(a[i].bali.per);
    writeln('второй бал');
    readln(a[i].bali.vtor);
    writeln('третий бал');
    readln(a[i].bali.tret);
    writeln('четвертый бал');
    readln(a[i].bali.chet);
  end;
p:=0;
for i := 0 to n-1  do
  begin
    p := a[i].bali.per + a[i].bali.vtor + a[i].bali.tret+a[i].bali.chet;
    b[i]:=p;
    p:=0;
  end;
  max1:=0;
  for i := 0 to n-1  do
  if b[i]>max1 then begin
                      b[i]:=max1;
                      nmax1:=i;
                    end;
  max2:=0;
  for i := 0 to n-1  do
  if (b[i]>max2) and (i<>nmax1) then begin
                                      b[i]:=max2;
                                      nmax2:=i;
                                     end;
  max3:=0;
  for i := 0 to n-1  do
  if (b[i]>max3) and (i<>nmax1) and (i<>nmax2) then b[i]:=max3;
  for i := 0 to n-1  do
  if (b[i]=max1) or (b[i]=max2) or (b[i]=max3) then writeln(a[i].fam, ' ', a[i].name, ' ', a[i].bali.per, ' ', a[i].bali.vtor, ' ', a[i].bali.tret,' ',a[i].bali.chet);
end.