Помогите решить задачу!!!!

[Senya]

Таблица чемпионата по хоккею представленна двухмерным массивом.Написать программу подсчитывающую для каждой команды количество выигранных,проигранных и ничьих матчей.Результат представить в виде таблицы на экране.

[maladoy]

uses crt;
const n=8;
         l=8;
var x:array[1..n,1..l] of integer;
    i,k,v,n4,pr:integer;
begin
clrscr;
randomize;
writeln('Matrica X:');
for i:=1 to n do
  begin
     for k:=1 to l do
       begin
         x[i,k]:=random(2)+1;
		 if x[i,k]:=2 then x[i,k]:=3;
         write(x[i,k]:4);
       end;
     writeln;
   end;
v:=0;
p:=0;
n4:=0;
for k:=1 to l do //идем по столбцам слева направо
   begin
     kp:=0;
     for i:=1 to n do begin //идем по строке сверху вниз
     if x[i,k]=1 then n4:=n4+1;// ничья 1 очко
	   if x[i,k]=3 then v:=v+1;// победа 3 очка
	      if x[i,k]=0 then p:=p+1;// проигрыш 0 очков
		 writeln('u ',i,' komandy  pobed:',p,' Hu4buX:',n4,' proigryshey:',p,' vot tak vot!!!' );
		end; 
   end;
end

.

[Senya]

Спасобо большое!!!!!))))