задание по двумерным массивам для Pascal

cоnst Size = 10;

var A : Array [1..Size, 1..Size] of Integer;

function KolDiag : Byte;
var K, i : Byte;
begin
K := 0; for i := 1 to Size do if A[i, i] > 0 then Inc(K);
KolDiag := K;
end;

…

WriteLn('На главной диагонали положительных элементов ', KolDiag);