Построить матрицу k порядка с использованием процедуры, по образцу - Turbo Pascal

Const n = 10;
Var A : array [1..n, 1..n] of integer;
    i, j : integer;
 
procedure proc(var A : array [1..n, 1..n] of integer; n : integer);
Var i, j, k : integer;
begin
For j:=1 to n do
    begin
    k:= n-j+1;
    For i:=1 to k do A[i,j]:=i;
    end;
end;
 
begin
proc(A, n);
For i:=1 to n do
    begin
    For j:=1 to n do Write(A[i,j]:3);
    Writeln;
    end;
end.