Сформировать матрицу по правилу - Pascal ABC (13383)

Формулировка задачи:

подскажите пожалуйста, почему у меня не получается доделать ее

                    Листинг программы
                
 
                        
                          
                    
Var A : array [1..50, 1..50] of shortint; i,j: byte;
     n,k: integer;
    begin
 write('введите n: ');
readln(n);
begin
For j:=1 to n do
    begin
     k:= n-j+1;
    For i:=1 to n do A[i,j]:=i;
    end;
 
For i:=1 to n do
    begin
    For j:=1 to n do Write(A[i,j]:3);
    Writeln;
    end;
end;
end.

Решение задачи: «Сформировать матрицу по правилу»

Листинг программы

var a:array [1..50, 1..50] of byte;
    n,i,j: byte;
begin
write('ГўГўГҐГ¤ГЁГІГҐ n: ');
readln(n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j<=n-i+1 then a[i,j]:=i
    else a[i,j]:=0;
    write(a[i,j]:3);
   end;
  writeln;
 end
end.

Объяснение кода листинга программы

Создается переменная a типа array [1..50, 1..50] of byte. Это означает, что a представляет собой матрицу размером 50x50, где каждый элемент является байтом.
Затем определяются три переменные: n, i и j. Их типы также являются байтами.
Выводится сообщение ГўГўГҐГ¤ГЁГІГҐ n:, где n - это значение переменной n.
Далее идет цикл for, который выполняется n раз.
Внутри цикла for также идет другой цикл for, который также выполняется n раз.
Внутренний цикл проверяет, если значение переменной j меньше или равно n-i+1. Если это условие выполняется, то значение элемента матрицы a[i,j] устанавливается равным i. Если условие не выполняется, то значение элемента устанавливается равным нулю.
После завершения внутреннего цикла выводится значение элемента матрицы a[i,j] с помощью оператора write. Значение выводится в формате 3, что означает, что оно будет записано в шестнадцатеричной системе с тремя знаками после запятой.
После завершения внешнего цикла выводится символ новой строки с помощью оператора writeln.
Код завершается.