Посчитать количество отрицательных элементов массива, больших заданного значения

uses crt;
const n=10; m=10;
var a:array[1..n,1..m] of integer;
i,j,a1,a2,k,max,pmax:integer;
begin clrscr;
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
begin
a1:=random(15);
a2:=random(15);
a[i,j]:=a1-a2;
write(a[i,j]:8,' '); end;end;writeln;end;
begin
write('Vvedite chislo k for otrichatelnih:');
read(k); end;
begin
max:=k;
pmax:=0;
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j] > max then begin
pmax:=pmax+1;
writeln('pmax',pmax);
readln;
end;end;end.

const
  n = 10;
 
var
  a: array[1..n, 1..n] of integer;
  i, j, k, pmax: integer;
 
begin
  randomize;
  for i := 1 to n do 
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(31) - 15;
      write(a[i, j]:4); 
    end;
    writeln;
  end;
  writeln;
  write('Vvedite chislo k for otrichatelnih:');
  read(k);
  pmax := 0;
  for i := 1 to n do
    for j := 1 to n do
      if (a[i, j] > k) and (a[i, j] < 0) then
        pmax := pmax + 1;
  if pmax = 0 then writeln('Iskomih elementov net')
  else writeln('Iskomih elementov ', pmax);
  readln;
end.

a[i, j] := -15 + random(31);

x:=a+random(b-a+1);

x:=-15+random(31);//от -15 до +15