незнаю что сделать со СТЭКом

[Misho0k]

Задача такая:
Написать программу, реализующую стэк и которая удаляет определённые элементы стэка.


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.

программа удаляет N-ное колличество первых элементов стэка
вродебы всё перепробовал,а он не хочет ничего делать
помогите очень срочно нужно...

[puporev]

Сильно не вникал, но попробуй в процедуре удаления написать так:

p^.prev:=ts^.prev;
dispose(ts);
ts:=p^.prev;

[Misho0k]

не то,получается тоже самое

[puporev]

Слушай, я скопировал твой код, ничего не менял, все нормально работает.

[Misho0k]

мне нужно удалять определённый элемент,а не первые 5 или 6
так-то она у меня тоже работает