(*  Reverse.pas Copyright (c) Kari Laitinen

    http://www.naturalprogramming.com/

    2016-02-19 File created.
    2016-02-19 Last modification.

    This Pascal program has been tested in Windows with
    a compiler downloaded from www.freepascal.org
*)


program Reverse ;

uses sysutils;  // for IntToStr() function

type IntegerArray = Array[ 0..99 ] of Integer ;

var array_of_integers: IntegerArray ;
    integer_index: Integer = 0 ;
    integer_from_keyboard: Integer ;

begin

   writeln( '' ) ;
   writeln( ' This program reads integers from the keyboard and,' ) ; 
   writeln( ' after receiving a zero, it prints the numbers' ) ;
   writeln( ' in reverse order. Please, start entering numbers.' ) ;
   writeln( ' The program will stop when you enter a zero.' ) ;
   writeln( '' ) ;

   repeat
      write(  ' ' + IntToStr( integer_index ) + '  Enter an integer: ' ) ;
      read( integer_from_keyboard ) ;

      array_of_integers[ integer_index ] := integer_from_keyboard ;
      integer_index := integer_index + 1
   until integer_from_keyboard = 0 ;

   writeln( '' ) ;
   write( ' Reverse order: ' ) ;

   while integer_index > 0 do
   begin
      integer_index := integer_index - 1 ;
      write( IntToStr( array_of_integers[ integer_index ] ) + '   ' ) 
   end ;

   writeln( '' ) ;
end.