StackLink

program StackList;

type
  //pTemp = ^TStackElement;
  pStackElement = ^TStackElement;
  TStackElement = record
    info : integer;
    previous : pStackElement;
  end;

var
  stackPointer : pStackElement;
  //pTemp : pStackElement;
  pTemp : ^TStackElement;
  answer : char;
  element : integer;

begin

  stackPointer := nil;

  repeat
    write('Current stack: ');
    readln(answer);
    case answer of
    '1':
      begin
        write('Enter the new element to add: ');
        readln(element);
        new(pTemp);
        pTemp^.info := element;
        pTemp^.previous := stackPointer;
        stackPointer := pTemp;
      end;

    end;


  until (answer = 'n');

end.