Хранения матриц в динамически распределяемой области памяти

const
  n=4;
type
  t=array[1..n,1..n]of integer;
var
  a:^t;
  b:pointer;
  c:integer;
  d:array[1..n,1..n]of integer;
procedure CreateArray(a:pointer;b,c:integer);
  var
    i,j:integer;
    d:^integer;
  begin
    d:=a;
    for i:=1 to b do
      for j:=1 to c do
        begin
          d^:=random(100);
          inc(d);
        end;
  end;
procedure WriteArray(a:pointer;b,c:integer);
  var
    i,j:integer;
    d:^integer;
  begin
    d:=a;
    for i:=1 to b do
      begin
        for j:=1 to c do
          begin
            write(d^:3);
            inc(d);
          end;
        writeln
      end;
  end;
begin
  new(a);
  CreateArray(a,n,n);
  WriteArray(a,n,n);
  dispose(a);
  writeln;
  CreateArray(@d,n,n);
  WriteArray(@d,n,n);
  writeln;
  repeat
    write('Enter m:');
    readln(c);
  until c in [n..9];
  GetMem(b,c*sizeof(integer)*n);
  CreateArray(b,n,c);
  writeArray(b,n,c);
  writeln;
  writeArray(b,c,n);
  freeMem(b,c*sizeof(integer)*n);
end.

procedure WriteArray(a:pointer;b,c:integer);
  var
    i,j:integer;
    d:^integer;
  begin
    d:=a;
    for i:=1 to b do
      begin
        for j:=1 to c do
          begin
            write(d^:3);
            inc(d);
          end;
        writeln
      end;
    i:=3;
    j:=4;
    d:=a;
    inc(d,(i-1)*c+j-1);
    writeln('a[',i,',',j,']:=',d^);
  end;

const
  n=10;
type
  tArray=array[1..n]of integer;
var
  a:^tArray;
  b,c,d,m:integer;
begin
  new(a);
. . .
      a^[b]:=random(100);

var p, q: ^Integer;
begin
  Inc(q); WriteLn(PChar(q)-PChar(p));
end.

const n=5;
type
  TRow: array [0..n-1] of Integer;
  TMatrix: array [0..$FFFE div SizeOf(TRow)-1] of TRow;
 
procedure arElSet(var a; i, j, e: Integer);
var m: TMatrix absolute a;
begin
  m[i,j]:=e;
end;
 
function arElGet(var a; i, j: Integer): Integer;
var m: TMatrix absolute a;
begin
  arElGet:=m[i,j];
end;

type
  TMatrix: array [0..0] of TRow;

type
  PInteger = ^Integer;
 
function At(a: Pointer; n, i, j: Integer): PInteger;
begin
  At:=PInteger(PChar(a)+(n*i+j)*SizeOf(Integer));
end;
 
...
  At(a,n, 0,0)^ := 0;
  WriteLn('a[0,0] = ',At(a,n, 0,0)^);

function At(a: Pointer; n, i, j: Integer): PInteger;
begin
  Inc(PInteger(a),n*i+j); At:=a;
end;

var m: TMatrix absolute a;

procedure DoSomething(var a; var b; { остальные параметры });
var
  aa: TMatrix absolute a;
  bb: TMatrix absolute b;

type
  TElement = Integer;
  PElement = ^TElement;
 
function At(var a; n, i, j: Integer): PElement;
var b: array [0..$FFFE div SizeOf(TElement)-1] of TElement absolute a;
begin
  At:=@(b[i*n+j]);
end;
 
var
  m, n, i, j: Integer;
  a, b: Pointer;
begin
  Write('m n: '); ReadLn(m,n);
  GetMem(a,m*n*SizeOf(TElement));
  GetMem(b,m*n*SizeOf(TElement));
 
  for i:=0 to m-1 do
    for j:=0 to n-1 do begin
      At(a^,n, i,j)^:=i*n+j;
      At(b^,n, i,j)^:=m*n-i*n-j;
    end;
  WriteLn('A =');
  for i:=0 to m-1 do begin for j:=0 to n-1 do Write(At(a^,n, i,j)^:4); WriteLn; end;
  WriteLn('B =');
  for i:=0 to m-1 do begin for j:=0 to n-1 do Write(At(b^,n, i,j)^:4); WriteLn; end;
 
  FreeMem(b,m*n*SizeOf(TElement));
  FreeMem(a,m*n*SizeOf(TElement));
end.