Вычислить число и сумму отрицательных элементов матрицы, находящихся на главной диагонали — Pascal(Паскаль)

Program mas;
Uses crt;
Const n=5;
Var a: array[1..n,1..n] of shortint; i,j,k: byte; sum: shortint;
Begin
Clrscr;
Randomize;
Writeln('Исходный массив: ');
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(19)-9;
Write(a[i,j]:3);
end;
Writeln;
end;
For i:=1 to n do
If a[i,i]<0 then 
begin
Inc(k);
sum:=sum+a[i,i];
end;
Writeln('Кол-во отрицательных элементов на главной диагонали = ,'k);
Writeln('Сумма отрицательных элементов главной диагонали = ',sum);
End.