Переписать тип "стек" в виде класса

program stack_;
 
type
  element = record
    i: integer;
    n: ^element;
  end;
 
var
  stack: ^element;
  s: string;
 
procedure add(i: integer);
begin
  if stack = nil then
  begin
    new(stack);
    stack^.i := i;
    stack^.n := nil;
  end else
  begin
    var cur := stack;
    new(stack);
    stack^.n := cur;
    stack^.i := i;
  end;
end;
 
function subtract: integer;
begin
  if stack <> nil then
  begin
    result := stack^.i;
    var cur := stack;
    stack := stack^.n;
    dispose(cur);
  end;
end;
 
procedure print;
begin
  var temp := stack;
  while temp <> nil do
  begin
    write(temp^.i, ' ');
    temp := temp^.n;
  end;
  writeln;
end;
 
begin
  writeln('Commands:');
  writeln('Any integer: add to stack');
  writeln('p          : print stack');
  writeln('s          : print&dispose last value');
  writeln('e          : exit');
  while true do
  begin
    readln(s);
    case s[1] of
      'e': exit;
      'p': print;
      's': if stack<>nil then writeln(subtract);
    else
      try
        add(strtoint(s));
      except
        writeln( 'Wrong command!');
      end;
    end;
  end;
end.

program stackclass;
type
  stack_pointer = ^stack_class;
  stack_class = class
    private
      next: stack_pointer;
      i: integer;
    public
      procedure add(x: integer);
        begin
          var temp:=stack_class;
          new(stack_class);
          i:=x;
          next:=temp;
        end;
      function subtract: integer;
        begin
          if stack_class<>nil then
            begin
              result:=i;
              var temp:=next;
              dispose(stack_class);
              stack_class:=nil;
            end;
        end;
      procedure print;
        begin
          var temp:=stack_class;
          while temp<>nil do
            write(temp.subtract,' ');
          writeln;
        end;
      end;
 var stack: stack_class;
 begin
   for var i:=1 to 10 do
     stack.add(i);
   stack.print;
   for var i:=1 to 10 do
     writeln(stack.subtract);
 end.