S>var
S>  M: PPInt;
S>  Col: PInt
S>begin
S>rCOLS:=random(100);
S>GetMem(M, sizeof(PInt)*rCOLS);
S>for i:=0 to rCOLS-1 do begin
S>  rROWS:=random(100);
S>    Col:= PInt(Integer(M)+i*sizeof(PInt));
S>    GetMem(Col, rROWS*sizeof(Integer));
S>  for j:=0 to rROWS-1 do begin
      <B>{В этом месте программа вылетает из DOS}</B>
S>    PInt(Integer(Col)+j*sizeof(Integer))^ := random(50);  
S>  end;
S>end;
S>