Олимпийские игры - Определить страну-победителя

type
  member = record
    country : string[50];
    quantity : word;
    gold : byte;
    silver : byte;
    bronze : byte;
  end;
  
var
  a : array[1..200] of member;
  i : byte;
  max, p, n : word;
 
begin
  max := 0;
  {ввод данных}
  repeat
    writeln('введите количество стран-участниц');
    readln(n)
  until (n > 0) and (n <= 200);
  for i := 1 to n do
  begin
    write('введите название ', i, ' страны: ');
    readln(a[i].country);
    write('введите кол-во участников ', i, ' страны: ');
    readln(a[i].quantity);
    write('введите кол-во золотых медалей ', i, ' страны: ');
    readln(a[i].gold);
    write('введите кол-во серебряных медалей ', i, ' страны: ');
    readln(a[i].silver);
    write('введите кол-во бронзовых медалей ', i, ' страны: ');
    readln(a[i].bronze)
  end;
  {вывод данных}
  writeln('СТРАНА':20, 'УЧ.':5, 'ЗОЛ.':5, 'СЕР.':5, 'БРН.':5);
  writeln('================================================');
  for i := 1 to n do
    writeln(a[i].country:20, a[i].quantity:5, 
      a[i].gold:5, a[i].silver:5, a[i].bronze:5);
  writeln('================================================');
  {определение победителя}
  for i := 1 to n do  
    if (a[i].gold * 3 + a[i].silver * 2 + a[i].bronze) > max then
    begin
      max := a[i].gold * 3 + a[i].silver * 2 + a[i].bronze;
      p := i;
    end;
  writeln('победитель неофициального зачета: ', a[p].country, ' набравшая ', max, ' очков');
  readln
end.

type
  member = record {тип member является записью}
    country : string[50]; {поле записи, где хранится название страны}
    quantity : word; {количество участников}
    gold : byte; {количество золота}
    silver : byte; {количество серебра}
    bronze : byte; {количество бронзы}
  end; {конец описания типа запись}