Найти сумму отрицательных элементов главной диагонали матрицы и их количество

var
  g: array[1..4,1..4] of integer; i, s, c: Integer;
begin
  s = 0; { сумма }
  c = 0; { количество }
  for i:=1 to 4 do
  if g[i,i]<0 then
  begin
    s:=s+g[i,i];
    inc(c);
  end;
  write(s,' ',c);
end.

program matrix;
uses crt;
var
Matr:array [-10..10, -10..10] of integer;
i,j,n,sum: integer;
begin
clrscr;
writeln ('input A');
for i:=1 to 4 do
for j:=1 to 4 do
readln (Matr[i,j]);
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write (Matr[i,j]:5);
end;
writeln;
sum:=0;
for i:=1 to n do
if (Matr[i,i] < 0) then 
begin
sum:=sum+Matr[i,i];
end;
writeln ('S=', sum);
readln;
end.

const
  n = 4;
var
  arr: array[1..n, 1..n] of integer;
  Summa, Count: integer;
  i, j: byte;
begin
  randomize;
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      arr[i, j]:=random(20)-5;
      write(arr[i, j]:4);
    end;
    writeln;
  end;
  for i:=1 to n do
    for j:=1 to n do
      if (i=j) and (arr[i, j] < 0) then 
      begin
        inc(Count);
        inc(Summa, arr[i, j]);
      end;
  writeln('Сумма: ', Summa, '; Кол-во: ', Count);
end.

var
  g: array[1..4,1..4] of integer; i, j, s, c: Integer;
begin
  s = 0; { сумма }
  c = 0; { количество }
  for i:=1 to 4 do
    for j:=1 to 4 do
      readln(g[i,j]);
  for i:=1 to 4 do
  if g[i,i]<0 then
  begin
    s:=s+g[i,i];
    inc(c);
  end;
  write(s,' ',c);
end.