Как записать программу без использования boolean и процедур?

uses Crt;
type mas=array[1..10] of integer;
     mtr=array[1..10] of mas;
function  F(t,ap,aq:integer):boolean;
var  k:boolean;
begin
     if (t>=ap) and (t<=aq)
      then k:=true
      else k:=false;
     F:=k;
end;
var  a:mtr;
     i,j,p,q:integer;
begin
     ClrScr;
     randomize;
     writeln('Matrix:'); writeln;
      for i:=1 to 10 do begin
       for j:=1 to 10 do begin
        a[i,j]:=random(100);
         write(a[i,j]:4);
       end;
       writeln;
      end;
      writeln;
      writeln('Diapozon p<q:'); readln(p,q); writeln;
      writeln('Elementov is diapozona [',p,',',q,'] v stolbcah:');
      j:=1;
      repeat
         Write('Stolbec ',j,' : ');
         for i:=1 to 10 do
          if F(a[i,j],p,q) then
           Write('[',i,']  ');
         Writeln;
         Inc(j);
      until j>10;
      ReadKey;
end.

type mas=array[1..10] of integer; 
     mtr=array[1..10] of mas;   
procedure Kol(a:mas;p,q:integer);
var j:byte;
begin
for j:=1 to 10 do
if(a[j]>=p)and(a[j]<=q) then
writeln('adress=',j);
end;
var a:mtr;
    i,j,p,q:integer;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to 10 do begin
for j:=1 to 10 do begin
a[j,i]:=random(100);
write(a[j,i]:4);
end;
writeln;
end;
writeln('Введите диапазон p<q:');
readln(p,q);
writeln('Кол-во эл-ов из диапазона [',p,',',q,']в столбцах:');
for j:=1 to 10 do
 begin
  writeln('Столбец ',j);
  Kol(a[j],p,q);
 end;
 readln;
end.

procedure x(...);
begin
  ...
end;
function x(...): Integer;
begin
  ...
  x:=0; {и то не обязательно}
end;