В одномерном массиве, сосоящем из n вещественных элементов, вычислить количество элементов, входящих в промежуток M и P (M и P вводится с клавиатуры ) — Pascal(Паскаль)

const
n=10;
var
i,m,p,k:integer;
a:array[1..n] of integer;
begin
writeln('m');
writeln('p');
readln(m);
readln(p);
for i:=1 to n do
  begin
      a[i]:=random(20);
      write(' ',a[i]:3);
  end;
writeln();
writeln('-------');
 k:=0;
 for i:=1 to n do
  if(a[i]>=m)and(a[i]<=p) then k:=k+1;
writeln('-------');

for i:=1 to n do
  write(' ',a[i]:3);
writeln();
end.