Создай матрицу 765432 65432 5432 432 32 2

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

begin
  for var i:=1 to 6 do begin
    for var j:=8-i downto 2 do Print(j);
    Writeln
    end
end.

Результат
7 6 5 4 3 2
6 5 4 3 2
5 4 3 2
4 3 2
3 2
2