Hi all,

Is this a compiler error or a =programming error we I get junk in B in the procedure the values are =good enough. see below.

program

  Type
      =MyArray ( m, n ) = array [ 1..m, 1..n ] of Integer;

    Var
      =B: ^MyArray;

    [...]
 Procedure BuildArray(var =NewArray : MyArray; k: Integer);
   begin

    New ( =NewArray, k, k);
    [...]
    For i := 1 =to k
    NewArray^[3 =,k ]:= i+k;
    [...]
  end;
   
begin
 buildArray(B, 10);
 For i := 1 to 10
  begin
   =Writeln(b^[3,i];
  end;

Dispose ( B );
    [...]
end.

Klaus F. Østergaard
Laser Technical Services =A/S
Sneppevang 3
3450 Allerød
tel +45 48 17 61 61
fax +45 48 17 10 65
e-mail =Laser@lasertech.dk