program Fehlertest;

 type
   T2Dim = array of array of Double;
   T1Dim = array of Double;


 var
   A :T2Dim;
   B :T2Dim;
   C :array of Double;
   D :T1Dim;
   cc :Char;

procedure Test(var A:T2Dim; out B :T2Dim; out C :array of Double; out D :T1Dim);
 var
   i,j,k,l :Integer;

 begin
  i := High(A);
  j := High(B);
  k := High(C);
  l := High(D);
end;

begin
  SetLength(A,2,2);
  SetLength(B,2,2);
  SetLength(C,2);
  SetLength(D,2);
  Test(A,B,C,D);
  read(cc);
end.