Вычислить число положительных чисел, меньших числа А

var i,s,n,a: integer;
m:array [1..100] of integer;
begin
  write ('vvedite kol-vo chisel = ');
  readln (n);
  write ('a=');
  readln (a);
  for i:=1 to n do
     begin
       write ('m',i,'=');
       readln (m[i]);
       if (m[i]>0) and (m[i]<a) then inc(s);
       end;
       writeln ('otvet=',s);
       readln;
end.

type
 TArr = array[1..100] of integer;
var
 arr: TArr;
 i, n, a: integer;
 
procedure Polozh(arr: TArr; a: integer);
var
 i, cnt: integer;
begin
 cnt:=0;
  for i:=1 to n do
   if (arr[i] > 0) and (arr[i] < a) then
    inc(cnt);
 writeln('Число положительных чисел, меньших числа А: ', cnt);
end;
 
begin
 readln(n, a);
  for i:=1 to n do
   begin
    arr[i]:=random(100);
    write(arr[i], ' ');
   end;
 writeln;
 Polozh(arr, a);
end.

type
 TArr = array[1..100] of integer;
var
 arr: TArr;
 
procedure Polozh(arr: TArr);
var
 i, n, a, cnt: integer;
begin
 cnt:=0;
 readln(n, a);
  for i:=1 to n do
   begin
    arr[i]:=random(100);
    write(arr[i], ' ');
     if (arr[i] > 0) and (arr[i] < a) then
      inc(cnt);
   end;
 writeln;
 writeln('Число положительных чисел, меньших числа А: ', cnt);
end;
 
begin
 Polozh(arr);
end.