Восстановить исходную матрицу и напечатать ее в общепринятом виде

const 
  size = 10;
  arr : array[1 .. size] of integer =
  (1, 2, 3, 4, 5, 6, 7, 9, 10, 13);
  
var 
  mx : array[1 .. size, 1 .. size] of integer;
  mxSize : integer;
  i, j, k : integer;
begin
  { сначала находим размер матрицы: }
  mxSize := (Trunc(Sqrt(Succ(8*size))) - 1) div 2;
  writeln('Размер матрицы: ', mxSize, '*', mxSize);
 
  k := 1; { Ну, а потом - заполняем ее }
  for i := 1 to mxSize do 
  begin
    mx[i, i] := arr[k];
    inc(k);
    for j := i + 1 to mxSize do
    begin
      mx[i, j] := arr[k];
      mx[j, i] := arr[k];
      inc(k);
    end;
  end;
  
  for i := 1 to mxSize do
  begin
    for j := 1 to mxSize do
      write(mx[i, j]:5);
    writeln;
  end;
end.

const
  nmax=15;
var
  a: array[1..nmax*nmax-nmax div 2 + nmax] of integer;
  b: array[1..nmax,1..nmax] of integer;
  n,i,j,k: integer;
begin
  repeat
    write('Ââåäèòå ðàçìåðíîñòü ìàòðèöû (n<=',nmax,'): ');
    readln(n);
  until n in [1..nmax];
  randomize;
  writeln('Îäíîìåðíûé ìàññèâ:');
  for i:=1 to (n*n-n) div 2 + n do
  begin
    a[i]:=random(99)+1;
    write(a[i]:4);
  end;
  writeln;
  writeln('Âåðõíèé òðåóãîëüíèê ìàòðèöû:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      if i>j then write('    ') else
      begin
        inc(k);
        b[i,j]:=a[k];
        b[j,i]:=b[i,j];
        write(b[i,j]:4);
      end;
    writeln;
  end;
  writeln('Âñÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(b[i,j]:4);
    writeln;
  end;
  readln;
end.