Задача калькулятор ООП

Program Calculator1;
 
Uses UStack, UExponent;
 
type
  TArray=array [1..100] of integer;
  
  Calculator=class (Stack)
  public
    Procedure Process(var A: TArray);
  private
  end;
 
Procedure Calculator.Process(var A: TArray);
var
  Ptr: smallint;
  C: Char;
begin
  Ptr:=0;
  While not(IsEmpty) do begin
    case Top of
      'm': If A[Ptr]<A[Ptr-1] then
           A[Ptr-1]:=A[Ptr];
      'M': If A[Ptr]>A[Ptr-1] then
           A[Ptr-1]:=A[Ptr];
      's': A[Ptr-1]:=A[Ptr]+A[Ptr-1];
      'p': A[Ptr-1]:=A[Ptr]*A[Ptr-1];
      'e': A[Ptr-1]:=Exponent(A[Ptr],A[Ptr-1]);
      'v': A[Ptr-1]:=A[Ptr] div A[Ptr-1];
      'o': A[Ptr-1]:=A[Ptr] mod A[Ptr-1];
    else begin
      A[Ptr+1]:=StrToInt(C);
      Ptr:=Ptr+1;
    end;
    end;
    If C in ['m', 'M', 's', 'p', 'e', 'v', 'o'] then Ptr:=Ptr-1;
    Pop;
  end;
  Done;
end;
 
var
  A: TArray;
  M: Calculator;
 
Procedure Output(A: TArray);
var
  F: text;
begin
  Assign(F, 'output.txt');
  Rewrite(F);
  Write(F, A[1]);
  Close(F);
end;
 
Procedure Input(var A: TArray);
var
  F: text;
  C: Char;
begin
  Assign(F, 'input.txt');
  Reset(F);
  Calculator.Create;
  While not(Eof(F)) do begin
    Read(F, C);
    M.Push(C);
  end;
  Close(F);
end;
 
begin
  Input(A);
  M.Process(A);
  Output(A);
end.