квадратный матрица паскаль

[kanat93]

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

кто может напишите код я на экзамене сижу

[Stilet]

var
 a:array[1..5,1..5] of integer;
 b:array[1..5] of integer;
 c,j,i:integer;
begin c:=1;
 // Матрицу введи сам
 for i:=1 to 5 do begin
  for j:=1 to 5 do begin
   case a[i,j] of
    2:inc(b[i]);0:dec(b[i]);
   end;
  end;
  if b[i]>0 then inc(c);
 end;
 Write(c);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Сойдет?

[kanat93]

Сообщение от Stilet

var
 a:array[1..5,1..5] of integer;
 b:array[1..5] of integer;
 c,j,i:integer;
begin c:=1;
 // Матрицу введи сам
 for i:=1 to 5 do begin
  for j:=1 to 5 do begin
   case a[i,j] of
    2:inc(b[i]);0:dec(b[i]);
   end;
  end;
  if b[i]>0 then inc(c);
 end;
 Write(c);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Сойдет?

Я уже сдал экзамен , но все равно тебе СпАСИБО!