Удаление элемента из стека. Срочно

Примерно так:

Пусть задан стек:

type tStek = ^rStek;
rStek = record
N : Integer;
Pred : tStek;
end;

var
Root : tStek;

Тогда удалить из его вершины:

Tmp := Root;
Root := Root^.Pred
Dispose(Tmp);