2Alex:А ты думаешь это не реализация стека на базе двух очередей??
На всякий случай (реализация на Пасе):
Код
Var P,P2:Pointer;
begin
GetMem(P,$FFFF);
GetMem(P2,$FFFF);
InitStack;
end.
Процедуру InitStack поисывать не буду, потому что ее сделает ___Alex___, который понимает, что нужно не ПОМОЧЬ, а СДЕЛАТЬ девушке ее лабу...