Двусвязные списки, создание Опции

[-Маша-]

Помогите найти ошибку:
Нужно создать двусвязный список

procedure list(var start,finish:link);
var p,q:link;
begin
while n<>0 do
begin
new(p);
readln(p^.inf);
p^.pred:=nil;
if start=nil then
begin
start:=p; kon:=p;
p^.next:=nil;
end
else
begin
p^.next:=start;
start^.pred:=p;
start:=p;
end;

end;


end;