Двумерный массив (вывод, главная диагональ)

[Alexbmgn]

{дан двумерный массив. Найти сумму и кол-во элементов
в каждой строке, положительных и лежащих вне главной диагонали}
uses crt;
const n=10;
type temp=array[1..n,1..n] of integer;
var mas,a:temp;
n_m,sum,kol,i,j:integer;


procedure vvod(var a:temp);
var i:integer;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(96)-15;
end;

procedure vivod(var a:temp);
var i:integer;
begin
for i:=1 to n do write(a[i,j]:4);
end;

procedure suma(var a:temp);
var i:integer;
begin
writeln;
for i:=1 to n do if a[i,j]>0 then sum:=sum+a[i,j];
write('=', sum)
end;

procedure kol_el(var a:temp);
var i:integer;
begin
writeln;
for i:=1 to n do if a[i,j]>0 then kol:=kol+1;
write('Kol=', kol)
end;

begin
vvod(mas);
vivod(mas);
suma(mas);
kol_el(mas);

end.
Кто может, пожалуйста укажите на ошибки. Помоему у меня здесь что-то не то с выводом двумерного массива, который вывестись должен полагаю в виде матрицы.... И еще насчет главной диагонали всё ли верно...