/*
 * reverse an array in place
 *
 */

module example_reverse_array;

const
	N : integer = 10;
	
var
	i, tmp : integer;
	a : array N of integer;

begin
	// initialize the array
	i := 0;
	while i < N do
		a[i] := i;
		i := i+1;
	end;
	
	// now revert it (in-place)
	i := 0;
	while i < N div 2 do
		tmp := a[i];
		a[i] := a[N-1-i];
		a[N-1-i] := tmp;
		i := i+1;
	end
end