Распечатать список призёров футбольных команд

type
  club = record
    title : string;
    score : byte
  end;
 
var
  table : array[1..16] of club;
  i, j : byte;
  t : club;
  
begin
  table[1].title := 'Амкар'; table[1].score := 40;
  table[2].title := 'Анжи'; table[2].score := 11;
  table[3].title := 'Волга'; table[3].score := 12;
  table[4].title := 'Динамо'; table[4].score := 39;
  table[5].title := 'Зенит'; table[5].score := 65;
  table[6].title := 'Краснодар'; table[6].score := 54;
  table[7].title := 'Крылья Советов'; table[7].score := 25;
  table[8].title := 'Кубань'; table[8].score := 37;
  table[9].title := 'Локомотив'; table[9].score := 56;
  table[10].title := 'Ростов'; table[10].score := 30;
  table[11].title := 'Рубин'; table[11].score := 36;
  table[12].title := 'Спартак'; table[12].score := 60;
  table[13].title := 'Терек'; table[13].score := 13;
  table[14].title := 'Томь'; table[14].score := 20;
  table[15].title := 'Урал'; table[15].score := 10;
  table[16].title := 'ЦСКА'; table[16].score := 58;
  for i := 1 to 16 do
    for j := 16 downto i do
      if table[i].score <= table[j].score
      then
      begin
        t := table[i];
        table[i] := table[j];
        table[j] := t
      end;
  writeln('Призеры:');
  for i := 1 to 3 do
    writeln(table[i].title:20, table[i].score:3);
  writeln
end.

type
  club = record
    title : string;//название клуба
    score : byte //количество очков
  end;
 
var
  table : array[1..20] of club;//массив клубов
  n, i, j : byte;
  t : club;
 
begin
write('Количество команд n=');
readln(n);
for i:=1 to n do
 begin
  write('Название команды ',i,': ');
  readln(table[i].title);
  write('Количество очков: ');
  readln(table[i].score);
 end;
for i := 1 to n do
for j := n downto i do
if table[i].score <= table[j].score then
 begin
  t := table[i];
  table[i] := table[j];
  table[j] := t
 end;
writeln('Призеры:');
for i := 1 to 3 do
writeln(table[i].title:20, table[i].score:3);
end.