Einführung Stack Klasse 12

[Razor90]

Ist ja schön wenn jemand mal nett sein kann^^ So habe jetzt alles durchgelesen und bin auch weiter gekommen. Habe nur noch ein Problem in der procedure Push, da irgendwie der wert nicht auf das array gespeichert wird.

Delphi-Quellcode:

unit Stack;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  st = array [1..5] of Integer;
var
  a: ^st;
  stackpointer, zahl: Integer;


   procedure Init(var ST:integer);
   procedure Push(zahl:integer);
   procedure Top (zahl:integer);
   procedure Pop (zahl:integer);

   implementation

procedure Init;
begin
 stackpointer:=0;
end;

procedure Push(zahl:integer);
begin
 if(stackpointer < 5)
   then  begin
        Inc(stackpointer);
        a[stackpointer]:=zahl;
    end;
end;

procedure Top(zahl:integer);
begin
 if(stackpointer > 0)
   then  begin
        a[stackpointer]:=zahl;
    end;
end;

procedure Pop;
begin
  if stackpointer=0 then exit;
   a[stackpointer]:=a[stackpointer-1];


end;

end.

Hat jemand ne Idee zu dem Problem a[stackpointer]:=zahl;?