Динамические списки! Pascal!

[sir.andrey]

Подскажите пожалуйста, как заполнить динамический, линейный,
двусвязный список из n элементов случайными
целыми числами от 0 до 100.
На примере разумеется!
А то я на лекции ваще ни че не понял

[danekne]

Гм... Поле дата записи вновь создаваемого указателя выбираем функцией рандом. полю указателя элемента, на который указывает указатель начала списка присваеваем указатель на вновь создаваемый элемент. Поле указателя предыдущего элемента для вновь создаваемого - указатель конца списка. Указатель конца списка перемещаем на вновь созданный элемент.

[sir.andrey]

Напиши в коде пожалуйста!

Вот я создал тип

program DUHAMUKA;
 type
      adres=^adres_type;
      adres_type=record
         prev:adres;      {adres predidyshego elementa}
        data:integer;     {znachenie peremennoi}
         next:adres;      {adres sludyushego elementa}
            end;

Люди добрые ну пожалуйста подскажите как заполнить список?

Проверьте так или нет?

program DUHAMUKA;
 type
      adres=^adres_type;
      adres_type=record
         prev:adres;      {adres predidyshego elementa}
        data:integer;     {znachenie peremennoi}
         next:adres;      {adres sludyushego elementa}
            end;
 var n,i,k:integer;
     p,p_begin,open,close:adres;
begin
randomize;
k:=memavail;
writeln ('skolko elementov vkluchaet v sebya dvyhsvazniy lineyniy spisok?');
read (n);
open:=nil;
for i:=1 to n do begin
                 new (p); {cozdanie novogo elementa p}
                 p^.data:=random(100);
                 p^.next:=nil;
                 p^.prev:=open;
                 open:=p;
                 end;