В двумерном массиве 4х3 найти количество элементов, больших -5. Если таких элементов не оказалось - вывести сообщене "Таких элементов нет!". Элементы ввести с клавиатуры.

var a: array [1..4, 1..3] of integer;       i, j, k: integer; begin k:=0;           for i:=1 to 4 do           for j:=1 to 3 do           begin begin read(a[i,j]);                               if (a[i,j]>-5) then inc(k);                                     end;                     writeln; {чтобы перейти на новую строку}           end;           if (k<>0) then writeln('k=', k)           else writeln('таких элементов нет'); readln; end.