Двусвязный Список.

[loki_man]

Помогите, пожалуйста!!! Выдает ошибко 216.
Вот программа:

program P1;
uses crt;
type
PMyType = ^TMyType;
TMyType = record
Info: Integer;
Prev: PMyType;
Next: PMyType;
data: Integer;
end;
PMyType2 = ^PMyType;

var
First: PMyType;
Cursor: PMyType;
LastNegItem: PMyType;
i: Integer;
PMTmytype2;

procedure AddToEnd (list : PMyType2; y : integer);
var
prior : PMyType;
begin
prior := nil;
while list^ <> nil do
begin
prior := list^;
list := @list^^.next
end;

New (list^);

with list^^ do
begin
data := y;
next := nil;
prev := prior
end
end;

procedure AddToBegin (list : PMyType2; t : integer);
var
l : PMyType;
begin
if list^ = nil then
begin
AddToEnd (list, t);
exit
end;

while list^^.prev <> nil do
list := @list^^.prev;

New (l);

l^.data := t;
l^.prev := nil;
l^.next := list^;
list^^.prev := l
end;

begin
clrscr;
Randomize;
new(First);
First^.Info := Random(100);
First^.Next := nil;
First^.Prev := nil;
for i := 1 to 19 do
begin
new(Cursor);
Cursor^.Info := Random(100);
Cursor^.Next := First;
Cursor^.Prev := nil;
First^.Prev := Cursor;
First := Cursor;
end;




WriteLn('Elementu: ');
Cursor := First;
repeat
Write(Cursor^.Info, ' ');
Cursor := Cursor^.Next;
until Cursor = nil;
WriteLn(' ');

addtoend(PMT,1);
addtobegin(PMT,1);

readln
end.

[Stilet]

На каком операторе?

[loki_man]

я вот сначала настрочил просто, чтобы создало список, вышло без проблем!
потом добавил две процедурки, типа одна добавляет в начало списка елемент, а другая в конец...и выдает ошибку, может я сами процедуры не там вписал?