В двумерном массиве 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]gt;-5) then inc(k);                
                    end;
                    writeln; {чтобы перейти на новую строку}
          end;
          if (klt;gt;0) then writeln(k=, k)
          else writeln(таких элементов нет);
readln;
end.