Стеки (как изменить задачу?)

[Anita_i]

Подскажите пожалуйста как из этих задач на добавление элемента в стек, сделать задачи на удаление элементов.
1. Удалить из стека первый элемент
2. Удалить из стека К-ый элемент

program pr1;
uses crt;
type din=^item;
item=record
elem:byte;
prev: din;
end;
var ts,p: din;
n,i,m,j:integer;
procedure addition(x:integer);
begin
new(p);
p^.elem:=x;
p^.prev:=ts;
ts:=p;
end;
procedure stack;
begin
p:=ts;
while p<>nil do begin
write(p^.elem,' ');
p:=p^.prev;
end;
writeln;
end;
begin
clrscr;
ts:=nil;
for i:=1 to 10 do addition(i);
stack;
for j:=1 to 2 do begin
writeln('dobavte element');
readln(m);
addition(m);
stack;
end;
readln;
end.

___________________________________ ___________
program pr2;
uses crt;
type din=^item;
item=record
elem:byte;
prev: din;
end;
var ts,p: din;
n,i,m,j,k:integer;
procedure addition(x:integer);
begin
new(p);
p^.elem:=x;
p^.prev:=ts;
ts:=p;
end;
procedure stack;
begin
p:=ts;
while p<>nil do begin
write(p^.elem,' ');
p:=p^.prev;
end;
writeln;
end;
procedure udal;
begin
if ts<>nil then begin
p:=ts^.prev;
dispose(ts);
ts:=p;
end;
end;
begin
clrscr;
ts:=nil;
for i:=1 to 10 do addition(i);
stack;
for j:=1 to 2 do begin
writeln('dobavte element');
readln(m);
addition(m);
stack;
end;
writeln('skolko udalit');
readln(n);
for k:=1 to n do udal;
stack;
readln;
end.

[Stilet]

Во-первых код оформляй специально предназначенным для этого тегом.
Во-вторых
Я так покумекал по старым лабам, вот есть пример удаления перецеплением:

type
 r=record
  prev:pointer;
  i:integer;
  next:pointer;
 end;
var n,e,p:^r;i:integer;
//********* PROCEDURE**********
procedure StekDel(i:integer);
//const
begin
 p:=n;
 while (p^.next<>nil)and(i>1) do begin
  p:=p^.next;dec(i);
 end;
 r(p^.next^).prev:=p^.prev;
 r(p^.prev^).next:=p^.next;

end;
//********* END PROCEDURE******* {}


begin
 //********* FOR ******************
 new(p);
 n:=p;
 p^.prev:=nil;
 p^.i:=0;
 for i :=1  to 10 do
 begin
  new(e);
  p^.next:=e;
  e^.prev:=p;
  p:=e;
  p^.i:=i;
 end;
 //******* END FOR ****************{}
 p:=n;
 while p^.next<>nil do begin
  writeln(p^.i);
  p:=p^.next;
 end;
  writeln;

 StekDel(4);
 p:=n;
 while p^.next<>nil do begin
  writeln(p^.i);
  p:=p^.next;
 end;
end.

В принципе StackDel тут процедура коорая отцепляет элемент из списка, посмотри как она сделана и сделай по аналогии.

[Anita_i]

Благодарю)))

[Апельсинка_7]

помогите решить задачу
С клавиатуры построчно вводятся числа<0. Ввод оканчивается 0. вывести все нечетные в порядке появления.