Вычислить количество элементов массива, больших М и меньших Р

program mas;
uses crt;
var a:array [1..20] of integer;
    c,m,i,n,p:integer;
begin clrscr;
randomize;
writeln('‚ў®¤ M,P');
readln(m,p);
for i:=1 to 20 do
                 begin
                 a[i]:=random(9)+1;
                 end;
for i:=1 to 20 do
                 begin
                 if (a[i]>m) and (a[i]<p) then
                 c:=c+1;
                 end;
for i:=1 to 20 do writeln(' ',a[i]);
writeln('c=',c);
readln;
end.

program mas;
uses crt;
var a:array [1..10] of integer;
    c,m,i,n,p:integer;
begin clrscr;
randomize;
writeln('Ввод m,p');
readln(m,p);
for i:=1 to 10 do
                 begin
                 a[i]:=random(9)+1;
                 end;
for i:=1 to 10 do
                 begin
                 if (a[i]>m) and (a[i]<p) then
                 c:=c+1;
                 end;
for i:=1 to 10 do writeln(' ',a[i]);
writeln('c=',c);
readln;
end.

 var a:array [1..10] of integer;
    c,m,i,n,p:integer;
begin
c:=0;
randomize;
writeln('Ââîä m,p');
readln(m,p);
for i:=1 to 10 do
                 begin
                 a[i]:=random(9)+1;
                 write(a[i]:3);
                 end;
                 readln;
 
for i:=1 to 10 do
                 begin
                 if (a[i]>m) and (a[i]<p) then
                 c:=c+1;
                 end;
writeln('c=',c);
readln;
end.

program mas;
uses crt;
const n = 10
var a:array [1..n] of real;
    i,с:integer;
    m,p : real;
begin clrscr;
randomize;
writeln('Ввод m');
readln(m);
writeln('Ввод p');
readln(p);
c := 0;
for i:=1 to n do
                 begin
                 a[i]:=(random(10) mod 2) +1;
                 end;
for i:=1 to n do
                 begin
                 if ((a[i]>m) and (a[i]<p)) then
                 c:=c+1;
                 end;
for i:=1 to n do writeln(' ',a[i]);
writeln('c=',c);
readln;
end.

var a:array [1..10] of integer;
    k,c,m,i,n,p:integer;
begin
c:=0;
k:=0;
randomize;
writeln('Ââîä m,p');
readln(m,p);
for i:=1 to 10 do
                 begin
                 a[i]:=random(9)+1;
                 write(a[i]:3);
                 end;
                 readln;
 
for i:=1 to 10 do
                 begin
                 if (a[i]>m) then
                 c:=c+1;
                 if a[i]<p then
                 k:=k+1;
                 end;
writeln('c=',c);
writeln('k=',k);
readln;
end.