Вывести индексы тех элементов, значения которых больше заданного числа А — Pascal(Паскаль)

uses crt;
var mas:array[1..100] of integer;
    a,n,i:integer;
begin
clrscr;
randomize;
write('Vvedite razmer massiva: ');
readln(n);
for i:=1 to n do 
   mas[i]:=random(100);
for i:=1 to n do 
   write(mas[i],'  ');
writeln;
write('Vvedite a: ');
readln(a);
for i:=1 to n do 
    if mas[i]<a then write(i,'  ');
readln;
end.