Сформировать матрицу

Написать программу, которая формирует матрицу в следующем виде:

1 1 1 1
1 2 2 2
1 2 n-1 n-1
1 2 n-1 n

Принцип построения матрицы - в ячейку ставится число, равное наименьшему индексу ячейки.
т.е. если ячейка [1,2] - ставится 1, ячейка [2,3] ставится 2, [3,1] ставится 1 и т.д.

{Написать программу, которая формирует матрицу в следующем виде:

1 1 1   1
1 2 2   2
1 2 n-1 n-1
1 2 n-1 n

Принцип построения матрицы - в ячейку ставится число, равное наименьшему индексу ячейки.
т.е. если ячейка [1,2] - ставится 1, ячейка [2,3]  ставится 2, [3,1] ставится 1 и т.д.
}

program p6;

var a: array[1..100,1..100] of integer; {раздел описания переменных, регистрация массива a}
       i, j, k, n: integer; {регистрация переменных i, j, k, n}

begin
writeln('Программа формирует матрицу определенного вида размерностью n x n') ;
  write('n='); {вывод на экран: n= }
  readln(n); {чтение введенного значения в переменную n}

  {формирование матрицы}
  for i:=1 to n do
   for j:=1 to n do
    begin
     if i<j then a[i,j]:=i else a[i,j]:=j;
    end;
    
    {вывод результата}
    
      for i:=1 to n do {цикл по строчкам}
        begin {цикл по столбикам}
              for j:=1 to n do {цикл по столбикам}
               write(a[i,j]:4); {форматный вывод элемента массива на экран}
        writeln; {перевод курсора в начало следующей строки}
       end; {конец составного оператора}

    


end.

http://pastie.org/1654606