Дан одномерный массив из n частей в промежутке [0,50] отыскать количество

program zz1;

const n = 10;  // задаем количество частей в массиве

var  i, a, b, c:integer; // задаем переменные целого типа

m:array [1..n] of integer;

procedure kk(a1,b1:integer;var c1:integer);

var j:integer;

begin

c1:=0;

for j:=1 to n do

if (m[j]gt;=a1) and (m[j]lt;=b1) then c1:=c1+1;

end;

begin

for i:=1 to n do  // получаем n чисел случайных и записываем их в массив

m[i]:=random(51);

for i:=1 to n do  // выводим полученный массив на экран

write(m[i], );

writeln;    // переходим на новую строчку для вывода ответа

a:=0;b:=25;

kk(a,b,c);

writeln( количество частей попадающих в интервал [0,25] = ,c);

a:=40;b:=50;

kk(a,b,c);

writeln( количество элементов попадающих в интервал [40,50] = ,c);

end.