Таблицы истинности. Заполните ВСЕ пропуски. Очень нужна ваша

Const
  mm=50; { максимально возможное кол-во строк }
  nn=50; { максимально возможное кол-во столбцов }
var
  a:array[1..mm,1..nn] of integer;
  i,j,m,n:integer;
begin
  Randomize;
  Write('Количество строк в массиве: '); Read(n);
  Write('Количество столбцов в массиве: '); Read(m);
  Writeln('*** Исходный массив ***');
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=Random(101)-50; { [-50;50] }
      Write(a[i,j]:7)
      end;
    Writeln
    end;
  Writeln;
  for i:=1 to n do begin
    for j:=1 to m do begin
      if a[i,j]<0 then a[i,j]:=121212;
      Write(a[i,j]:7)
      end;
    Writeln
    end
end.

1. Традиционный "школьный" вариант

var
  i,j:integer;

begin
  for i:=1 to 5 do begin
    for j:=1 to 8 do Write(j,',');
    Writeln(9);
    for j:=9 downto 2 do Write(j,',');
    Writeln(1)
    end
end.

Результат
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1

2. Современный вариант

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Loop 5 do begin
    SeqGen(9,i->i,1).Println(',');
    SeqGen(9,i->9-i).Println(',')
    end
end.