СПИСКИ Опции

[Pautina]

Помогите решить задачку.. не могу разобраться как это делать..
Дано целое n>1, за которым следует n вещественных чисел. Напечатать эти числа в порядке их невозрастания.
СПАСИБО!!!

[Pautina]

Не знаю, скорре всего, это не правильно... ( я решила ввести сначала вещественные числа, а потом добавить в начало списка целое число.. Сразу же возникли вопросы: если у меня базовый тип элементов списка real, то куда мне писать тип первого элемента integer? где указать, что он должен быть больше n?

type
a=^Elem;
Elem=record
x:real;
next:a;
end;

var
p,q:a;
i,c:integer;

begin
write('vvedite kolichestvo elementov:');
readln(n);
p:=nil;
for i:=n to downto 1 do
begin
new(q);
readln(q^.x);
q^.next:=p;
p:=q;
end;

new(n);
n^.x:=c;
n^.next:=p;
p:=c;