Здравствуйте, Ozone, Вы писали:

O>Все эти процедуры я конечно знаю, просто я не могу сообразить как ее (матрицу) создать.
Ну как под что? Ты же задекларировал переменную M типа PPInt?
ну вот под нее и выделяешь:

var
  M: PPInt;
  Col: PInt
begin
rCOLS:=random(100);
GetMem(M, sizeof(PInt)*rCOLS);
for i:=0 to rCOLS-1 do begin
  rROWS:=random(100);
    Col:= PInt(Integer(M)+i*sizeof(PInt));
    GetMem(Col, rROWS*sizeof(Integer));
  for j:=0 to rROWS-1 do begin
    PInt(Integer(Col)+j*sizeof(Integer))^ := random(50);  
  end;
end;

{И как это все потом вывести на экран?}