списки-динамическая структура Опции

[reboot]

помогите с такой задачей:
Дан список, состоящий из N вещественных чисел. Удалить из него те звенья, значения которых меньше следующих. Организовать вывод начальной и конечной последовательности значений в списке.
вопрос первый: сдесь нужен массив записей, или можно обойтись нетипизированным файлом?
вопрос второй: если использовать массив то как обращаться к элементу списка при его заполнении рандомными числами?
понимаю что вопросы глупые и легкие(для кого-то), но у меня просто не очень хорошо общение со списками идет.

[reboot]

вобщем проблем не избежал, задача такая: Дан список, состоящий из N вещественных чисел. Удалить из него те звенья, значения которых меньше следующих. Организовать вывод начальной и конечной последовательности значений в списке.
проблема как раз в части кода которая отвечает за поиск и удаление... можите поправить ??

 uses crt;
type ukazatel=^elem_spiska;
   elem_spiska=record
	 znach:integer;
	 sled:ukazatel;
	 end;
var number,i,j,r:integer;
temp,root:ukazatel;
begin
clrscr;
randomize;
number:=random(10);
root:=nil;
for i:=1 to number do
begin
   temp:=root;
   new(root);
   with root^ do
	 begin
	   znach:=random(50);
	   sled:=temp;
	  end;
end;
temp:=root;
for i:=1 to number do	begin
  writeln('§­ зҐ­ЁҐ = ',temp^.znach);
  temp:=temp^.Sled;
 end;
temp:=root;

 for i:=1 to number do begin
 if temp^.znach < temp^.sled^.znach then
 begin
  temp^.znach:=temp^.sled^.znach;
   temp^.sled:=nil;
  end;
 end;

 writeln;
 for i:=1 to number do	begin
  writeln('§­ зҐ­ЁҐ[2] = ',temp^.znach);
  temp:=temp^.Sled;
 end;
 readln;


end.