Pascal. Дан массив действительных чисел сформировать массив из индексов элементов меньше числа C

А сколько чисел в массиве?
У меня получилась такая программка:
var i,j,n:integer;
a:array[1..10000] of real;
c:real;
b:array[1..10000] of integer;
begin
write('vvedite chisl c=');
readln(c);
write('vvedite kolichestvo chisel => ');
readln(n);
write('vvedite chisla:');
for i:=1 to n do read(a);
j:=0;
for i:=1 to n do
if a,' ');
end.

Блин, некорректно вставляется программа - скинула на почту (((((((((((