In the array M [12,12], the values of the elements are in the interval [-10,50], calculate the sum

In the array M [12,12], the values of the elements are in the interval [-10,50], calculate the sum of the negative elements located on the main diagonal.

var
M: array [1..12,1..12] of integer;
sum: integer;

begin
for i: integer: = 1 to 12 do
begin
for j: integer: = 1 to 12 do
begin
M [i, j]: = random (60) -10;
write (M [i, j]: 5);
if (i = j) and (M [i, j] <0) then
sum: = sum + M [i, j];
end;
writeln ();
end;
writeln (‘Amount:’, sum);
end.