[Beginner Problem] Varibles not getting assigned correctly

[Shane Smith <rusty_@users.sourceforge.net>]

Hi all,

I'm trying to write a simple program (that manacla game), I've 
encountered a problem where the variables that are used in a nested 
procedure can't be assigned a value. I'm using GNAT 4.1.2 on Linux.

---CODE---

procedure Manacla is

type pits is array (1 .. 14) of Integer;
type Score_Type is array (1 .. 2) of integer;
type arr_point is access pits;
board : arr_point;

Score1 : Integer := 0;
Score2 : Integer := 0;
Scores : Score_type := (0,0);
Player : Integer range 1 .. 2 := 1;
Winner : integer := 0;
Test : constant integer := 11;
Pit : Integer := 0;

...

procedure Status (Player : in integer)
is

begin
	-- Check if 'playing pits' are empty, if not exit
	while board.all(2 .. 7) = (0,0,0,0,0,0) or board.all(9 .. 14) = 
(0,0,0,0,0,0) loop

		if Player = 1 then
			if board.all(2 .. 7) = (0,0,0,0,0,0) then
				Winner := 1;
			else exit;
			end if;
		else
			if board.all(9 .. 14) = (0,0,0,0,0,0) then
				Winner := 2;
			else exit;
			end if;
		end if;
	end loop;
end Status;

...

procedure Player1
is
Pit : Integer := 0;
Player : Integer := 1;

begin
...
Status(Player);
end PLayer1;

begin
...
player1;
end Manacla;

---END CODE---

Basically main body calls player1 and player1 calls status(player) (which 
edits the winner variable).

In gdb 'p winner' gives "$14 = 7270388".
It happens to arrays and access varibles as well.