Двумерные массивы. Таблица футбольного чемпионата.

[Sserebryan]

Таблица футбольного чемпионата задана квадратной матрицей порядка N, в которой все
элементы главной диагонали не используются, а каждый элемент, не принадлежащий главной
диагонали, равен количеству очков, набранных в игре командой, игравшей на своем поле: 2 –
выигрыш, 1 – ничья, 0 – поражение. Для команды i (1≤i≤N) в строке i указано количество
очков, полученных на своем поле, а в столбце i – количество очков, потерянных на чужом
поле Сформировать список
номеров команд, имеющих больше побед на чужом поле, чем на своем. Определить номера
двух команд, набравших меньше всего очков.
Написал только часть, где выводится матрица и рандомно заполняется, нужно поправить ошибку в определении команд, которые имеют больше побед на чужом поле, и подтолкуть к решению, что сделать, чтобы вывести команды, у которых меньше всего очков

uses crt;
const max=20;
var a:array [1..max,1..max] of byte;
    n,i,j,k,s,s1,s2,s3:integer;
    x:char;
begin
x:=x;
repeat
Writeln('vvedite kol-vo komand N');
Readln(N);
until N in [1..max];
for i:=1 to N do  {ðàíäîìíî çàïîëíÿþ òàáëèöó}
   for j:=1 to N do
      A[i,j]:=random(3);
For i:=1 to N do
 begin
   for j:=1 to N do
     if i=j then write(#204
     :4)
     else Write(a[i,j]:4);
     writeln;
end;
writeln('íîìåðà êîìàíä, èìåþùèõ áîëüøå ïîáåä íà ÷óæîì ïîëå');
k:=0;
s:=0; s3:=0;
for i:=1 to n do
   begin
     for j:=1 to n do
       begin
         if a[i,j]=2 then s1:=s+1;
         if a[j,i]=0 then s2:=s3+1;
         s:=s1;
         s3:=s2;
       end;
   end;
if s2>s1 then
   begin
    writeln('Nomer komandy - ',i,' Kol. pobed = ',s2);
    k:=1
end;
if k=0 then writeln('takih komand net');
end.

[Sserebryan]

Подымаю тему)

[Sserebryan]

ап тему, помогите плиз)

[Sserebryan]

АП тему, помогите плизз

[Sserebryan]

ап тему, помогите плиз)