Дан массив целых чисел, состоящий из 30 элементов, заполненный случайным образом числами из промежутка от –50 до 50. Найти число тех элементов, значения которых положительны и не превосходят заданного числа А — Pascal(Паскаль)

program Dekio;
const
n=30;
var
arr :array[1..n] of integer;
i,a :integer;
begin
writeln('Массив А');
readln(a);
for i:=1 to n do
begin
arr[i]:=random(101)-50;
write(arr[i],' ');
end;
writeln;
writeln('Результат');
for i:=1 to n do
if (i>0) and (i>a) then
write(i,' ');
end.