матрицы паскаль

[Анжелика1988]

Вычислить и запомнить сумму и число положительных элементов каждого столбца матрицы. Результаты отпечатать в виде двух строк.

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   const
   n=3;
   m=3;

   var a:array [1..n,1..m] of integer;
       i,j,sum,k:integer;
begin
Randomize;
for i := 1 to n do begin
  for j := 1 to m do
   begin
      a[i,j]:=random(25)-random(15);
      write(a[i,j],' ');
   end;
   writeln;
end;

 sum:=0;
 k:=0;
for i := 1 to n do begin
  for j := 1 to m do
   begin
      if a[i,j]>0 then
       begin
            sum:=sum+a[i,j];
            inc(k);
       end;

   end;
end;


writeLn('Sum= ', sum);
writeLn('Kolichestvo= ',k);
readln;
end.

Получите и распешитесь!

[Анжелика1988]

Спасибо огромное!!!!!