"Objekt: Keller" geht nicht...

[ArchaicSeraphim]

Hi Leutz,
Ich bin grade dabei, mir einen Keller zu bauen, aber aus irgendeinem Grund kann "die Unit Keller.pas nicht compiliert werden." Kann mir mal wer sagen, wieso? Hier ist sie:

Delphi-Quellcode:

unit Keller;

interface

type
  TKeller = class
    constructor create;
    procedure push(m:string);
    procedure pop;
    function top:(top:string);
  end;

var
  Keller: array of char;
  n: integer;

implementation

constructor TKeller.create;
begin
  inherited create;
  n:=1;
end;

procedure TKeller.push(m:string);
begin
  inc(n);
  setlength(Keller,n);
  Keller[n-1] := m;
end;

procedure TKeller.pop;
begin
  dec(n);
  setlength(Keller,n);
end;

function top:(top:string);
begin
  top := Keller[n-1];
end;

end.

Ist da irgendwas GANZ falsch? Wäre sehr erfreut über Antwort! ^^