Stos + Pascal

Witam wszystkich. Nie będę się tu rozpisywał ze jestem pocztkujący itd.. Przechodzę od razu do rzeczy. Jak napisac funkcje odejmowania elementu ze stosu. Moze dla ułatwienia dodam ze funkcja DODAJ wygląda tak:

Type
    WSK = ^ELSTOSU;
    ELSTOSU = RECORD
                     D: BYTE;
                     N: WSK {WSK to oczywiscie wskaźnik}
    End;

Procedure DODAJ ( var W: WSK; x: BYTE );
var: T: WSK;

begin
    new (T);
    T^.D:=x;
    T^.N:=x;
    W:=T;
end;

No i teraz:
Procedure ODEJMIJ (.....

Pozdrawiam.

procedure DODAJ ( var W: WSK; x: BYTE );
var: T: WSK;

begin
    new (T);
    T^.D:=x;
    T^.N:=x;
    W:=T;
end; 

ma być oczywiście:

T^.N:=W;

(a nie x)

procedure zdejmij (var w: WSK, var x: byte);
var
  T: WSK;
begin
  T:=W;
  x:=T^.D;
  W:=T^.N;
  dispose(T);
end;

Dzięki wielkie. Mam jeszcze jedno pytanie jeśli juz jesteśmy przy stosach. Jak napisać procedurę definiujacą zawartość stosu.

co rozumiesz pod wyrażeniem 'definiować zawartość stosu' ??