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

program q183452822;
var
i, j, c: Integer;
a: array [1..5, 1..10] of Integer;
begin
Randomize;
c := 0;
for i := 1 to 5 do
begin
for j := 1 to 10 do
begin
a[i, j] := Random(100) - 50;
Write(a[i, j]:4);
if a[i, j] < 0 then
Inc(c);
end;
WriteLn;
end;
WriteLn('Count: ', c);
ReadLn;
end.