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

var a:array[1..3] of array [1..4] of integer;i,j,k:integer;beginfor 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.