Таблица футбольного чемпионата задается квадратной матрицей размерностью 16х16

uses crt;
const n=16;
var tabl:array [1..n,1..n] of byte;
    sum,nom:array[1..n] of byte;
    m,i,j,k:byte;
begin
randomize;
{заполняем случайно верхнюю часть таблицы 0,1,3}
for i:=1 to n-1 do
for j:=i+1 to n do
 repeat
  tabl[i,j]:=random(4);
 until tabl[i,j] in [0,1,3];
{заполняем симметрично нижнюю часть таблицы}
for i:=2 to n do
for j:=1 to i-1 do
 begin
  if tabl[j,i]=1 then tabl[i,j]:=1
  else tabl[i,j]:=3-tabl[j,i];
 end;
{на главную диагональ запишем ноли}
for i:=1 to n do
tabl[i,i]:=0;
Writeln('Таблица:');
{выводим получившуюся матрицу}
writeln('Исходная таблица:');
write('№':4);
for i:=1 to n do
write(i:4);
writeln(' Очки');
for i:=1 to n do
 begin
  sum[i]:=0;{сумма очков команды}
  nom[i]:=i;{ее номер}
  write(nom[i]:4);
  for j:=1 to n do
   begin
    write(tabl[i,j]:4);
    sum[i]:=sum[i]+tabl[i,j];
   end;
  writeln(sum[i]:4);
 end;
write('Нажмите Enter для продолжения');
readln;
clrscr;
{сортируем номера команд по убыванию сумм очков}
for i:=1 to n-1 do
for j:=i+1 to n do
if sum[i]<sum[j] then
 begin
  k:=sum[i];
  sum[i]:=sum[j];
  sum[j]:=k;
  k:=nom[i];
  nom[i]:=nom[j];
  nom[j]:=k;
 end;
{выводим получившуюся матрицу}
writeln('Таблица в соответствии с занятыми местами:');
write('№':4);
for i:=1 to n do
write(i:4);
writeln(' Очки Место');
for i:=1 to n do
 begin
  write(nom[i]:4);
  for j:=1 to n do
  write(tabl[i,j]:4);
  write(sum[i]:4);
  writeln(i:4);
 end;
write('Нажмите Enter для выхода');
end.