Переписать с Pascal процедуру подсчета кол-ва элементов массива в заданных пределах

uses crt;
const nmax=20;
type mas=array[1..nmax] of integer;
     mtr=array[1..nmax] of mas;
procedure Kol(a:mas;n:byte;p,q:integer;var k:byte);
var i:byte;
begin
k:=0;
for i:=1 to n do
if(a[i]>=p)and(a[i]<=q) then inc(k);
end;
var a:mtr;
    m,n,i,j,k:byte;
    p,q:integer;
begin
clrscr;
randomize;
repeat
write('Введите кол-во строк ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Введите кол-во столбцов ',nmax,' n=');
readln(n);
until n in [1..nmax];
 for j:=1 to n do
for i:=1 to m do
a[j][i]:=random(20);
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[j][i]:4);
  writeln;
 end;
writeln;
repeat
writeln('Введите диапазон p<q:');
readln(p,q);
until p<q;
writeln('Количество элементов из диапазона [',p,',',q,'] в столбцах:');
for j:=1 to n do
 begin
  Kol(a[j],m,p,q,k);
  writeln('Столбец ',j,'=',k);
 end;
readln
end.