Построить динамическую матрицу указанного в задании вида

var i,j,n:integer;
    m:array[1..50,1..50]of integer;
begin
  write('N=');
  readln(n);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if i<j then m[i,j]:=1
      else
        if i=j then m[i,j]:=i
        else m[i,j]:=0;
      write(m[i,j]:3);
    end;
    writeln;
  end;    
end.

type
  TElement = Integer;
  PIntArr = TIntArr;
  TIntArr = array [0..MaxInt] of TElement;
var
  i, j, n: Integer;
  m: PIntArr;
begin
  Write('N: '); ReadLn(n);
  GetMem(m,Sqr(n)*SizeOf(TElement));
  for i:=0 to n-1 do begin
    for j:=0 to n-1 do begin
      if      i<j then m^[i*n+j]:=1
      else if i=j then m^[i*n+j]:=i
      else             m^[i*n+j]:=0;
      Write(' ',m^[i*n+j]:2);
    end;
    WriteLn;
  end;
  FreeMem(m);
end.

var i, j, n, t: Integer;
begin
  Write('N: '); ReadLn(n);
  for i:=0 to n-1 do begin
    for j:=0 to n-1 do begin
      if      i<j then t:=1
      else if i=j then t:=i
      else             t:=0;
      Write(' ',t:2);
    end; WriteLn;
  end;
end.

const W=2;
var i, j, n, t: Integer;
begin
  Write('N: '); ReadLn(n);
  for i:=0 to n-1 do begin
    for j:=0 to i-1 do Write(' 0':W+1);
    Write(' ',i:W);
    for j:=i+1 to n-1 do Write(' 1':W+1);
    WriteLn;
  end;
end.