Заданно последовательность из N чисел:a(1), a(2), a(3),…,a(N). Найти количество чисел, которые принадлежат отрезку [a,b] — Pascal(Паскаль)

Var
mass: array[0..10] of integer;
i,a,b,num: integer;
begin
num:=0;
Writeln('Введите a');
Readln(a);
Writeln('Введите b');
Readln(b);
Writeln('Введите массив');
for i:=0 to 10 do
readln(mass[i]);
for i:=0 to 10 do
begin
if (mass[i]>a) and (mass[i]<b) then
num:=num+1;
end;
Writeln('Из чисел:');
For i:=0 to 10 do
Writeln(mass[i]);
Writeln('Входят в интервал от ', a, ' до ', b, ' ', num, ' штук');
end.