Подсчитать количество отрицательных элементов двумерного массива в котором 3 строки и 4 столбца , заполнить надо, заранее !

Var a:array[1..3] of array [1..4] of integer;
i,j,k:integer;
begin
for i:=1 to 3 do
   for j:=1 to 4 do begin 
   read(a[i,j]); 
   if a[i,j]<0 then k+=1; 
   end;
writeln(k);
end.

Var
a:array[1..3, 1..4] of integer;
    n, i, j:integer;

begin
   n:=0;
   for i:=1 to 3 do
    for j:=1 to 4 do
    read(a[i, j]);
   for i:=1 to 3 do
    for j:=1 to 4 do
    if a[i, j]<0 then n:=n+1; 
  writeln('Количество', n);
   for i:=1 to 3 do
    begin 
    for j:=1 to 4 do
    write(a[i, j]:4);
    writeln;
    end;
  end.