В матрице целых чисел необходимо для каждого значения выполнить подсчет количества элементов, принимающих это значение

const
  nmax = 20;
 
type
  matrix = array[1..nmax, 1..nmax] of integer;
  vector = array[1..nmax * nmax] of integer;
 
var
  c: matrix;
  q: vector;
  x: integer;
  n, m, i, j, k: integer;
 
procedure Matrix2Vector(a: matrix; n, m: integer; var b: vector; var r: integer);
var
  c: vector;
  p, k, i, j: integer;
  f: boolean;
begin
  r := 0;
  for i := 1 to n do
    for j := 1 to m do
    begin
      inc(r);
      b[r] := a[i, j];
    end;
  i := 1;
  while i <= r do
  begin
    j := i + 1;
    while j <= r do
    begin
      if b[j] = b[i] then
      begin
        for k := j to r - 1 do
          b[k] := b[k + 1];
        r := r - 1;
      end
      else 
        j := j + 1;
    end;
    i := i + 1;
  end;
end;
 
function count(a: matrix; n, m: integer; x: integer ): integer;
var
  k, i, j: integer;
begin
  k := 0;
  for i := 1 to n do
    for j := 1 to m do
      if a[i, j] = x then 
        inc(k);
  count := k;
end;
 
begin
  randomize;
  read(n, m);
  writeln('Исходная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      c[i, j] := random(20);
      write(c[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  Matrix2Vector(c, n, m, q, k);
  for i := 1 to k do
    writeln('Элемент массива: ', q[i]:4, ' принимающих это значение: ', count(c, n, m, q[i]));
end.

const m=10;
      n=15;
      min=-10;
      max=10;
var a:array[1..m,1..n] of integer;
    b:array[min..max] of integer;
    i,j,k:integer;
begin
randomize;
writeln('Матрица ');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=min+random(max-min+1);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=min to max do
 begin
  b[i]:=0;
  for j:=1 to m do
  for k:=1 to n do
  if a[j,k]=i then inc(b[i]);
 end;
writeln('Частота чисел в матрице');
k:=0;
for i:=min to max do
 begin
  if b[i]>0 then
   begin
    inc(k);
    write(i:3,'=',b[i]:2,'  ');
    if k mod 8=0 then writeln;
   end;
 end;
end.