Массивы, Массивы Опции

[Flare]

Задача : Из чисел a1,a2,...,an (1,2,..,n - нижний индекс) выбрать те, которые больше заданного числа с и образовать из них новый массив, сохранив порядок следования элементов.
Начало сделала, а вот со второй частью условия возникли проблемы.. подскажите, пожалуйста,как вывести массив, сохранив порядок следования.. заранее огромное спасибо!!!

uses crt;
const
n=100;
var
a:array[1..n] of real;
i,n1,c:real;
begin
write('введите размерность:');
readln(n1);
write('введите значение c:');
readln©;
for i:=1 to n1 do
                      begin
                         write('a[',i,']=');
                         readln(a[i]);
                      end;
for i:=1 to n1 do
 if a[i]<c then writeln(a[i]);

[HeX]

А нам говорили что вводить новый массив без веской причины ето большой минус!!!