Паскаль Помогите пожалуйста сделать. Дана Матрица размера 4 на 4 целого типа .Найти количество отрицательных элементов главной диагонали матрицы

const n=4;var a:array[1..n,1..n] of integer;i,j,k:integer;beginRandomize;writeln('Исходный массив:');for i:=1 to n do begin for j:=1 to n do  begin   a[i,j]:=random(40)-20;   write(a[i,j]:4);  end;  writeln; end;k:=0;for i:=1 to n do  if a[i,i]<0 then k:=k+1; writeln('k = ',k);end.Пример:Исходный массив: 14 14 10 -18-12  6  -5 1 4  10 11 16 -2 -10 8 -7k = 1