!**************************************
    ! Name: implementation of a stack in Obj
    !     ect Pascal
    ! Description:A stack coded in Object Pa
    !     scal. Works with FreePascal and Delphi.
    ! By: Jared Bruni
    !
    !This code is copyrighted and has    ! limited warranties.Please see http://w
    !     ww.Planet-Source-Code.com/xq/ASP/txtCode
    !     Id.652/lngWId.7/qx/vb/scripts/ShowCode.h
    !     tm    !for details.    !**************************************
    
    { implementation of a stack in Object Pascal
    written by Jared Bruni
    www.LostSideDead.com
    }
    program stack;
    {$APPTYPE CONSOLE}
    uses
    SysUtils;
    var
    array_stack: array [0..255] of string;
    pos: integer = 0;
    s: string;
    i: integer;
    procedure push(str: string);
    begin
    array_stack[pos] := str;
    inc(pos);
    end;
    function pop(): string ;
    begin
    dec(pos);
    result := array_stack[pos];
    end;
    function get(at: integer): string;
    begin
    result := array_stack[at];
    end;
    function size(): integer;
    begin
    result := pos;
    end;
    begin
    push('hello');
    push('world');
    push('stack');
    push('in pascal');
    push(':)');
    for i := 0 to size() do begin
    writeln(get(i));
    end;
    read(s);
    end.