Работе со списками. Вопрос

program a1;
uses crt;
type ukaz=^spisok;
     spisok=record
      inf:integer;
      next:ukaz;
     end;
var hp:ukaz;
    i,x,y,z:integer;
    q:char;
procedure sozd;
 begin
 new(hp);
 hp^.next:=nil;
 end;
procedure dobVhv(z:integer);
 var
 p,x:ukaz;
 begin
 new(x);
 x:=hp;
 while x^.next<>nil do
 x:=x^.next;
 new(p);
 p^.inf:=z;
 p^.next:=nil;
 x^.next:=p;
 end;
procedure viv;
 var
 p:ukaz;
 begin
 if hp^.next=nil then writeln('Spisok pust')
 else begin
      new(p);
      p:=hp^.next;
      while p<>nil do
       begin
       write(p^.inf,' ');
       p:=p^.next;
       end;
      end;
 end;
procedure udal(x:integer); {Здесь смог только дойти до нужного элемента}
 var
 w,p:ukaz;
 i:integer;
 begin
 if hp^.next=nil then writeln('Spisok pust')
 else begin
      new(p);
      p:=hp^.next;
      for i:=1 to x-2 do
      p:=p^.next;
      writeln(p^.inf);
      end;
end;
begin
clrscr;
sozd;
writeln('Dlinny');
readln(y);
for i:=1 to y do begin
 writeln('Inf',i);
 readln(z);
 dobVhv(z);
 end;
viv;
writeln;
writeln('Hotite ydalit chislo? (Y/N)');
readln(q);
if q='Y' then begin writeln ('Vvedite nomer elementa'); readln(i); udal(i); end;
viv;
readkey;
end.