Здравствуйте, rail!
Модуль.
[code lang=pascal]unit matrix;
interface
type mtr=array[1..20,1..20] of integer;
procedure form_mtr(var a:mtr;var n:integer);
implementation
procedure form_mtr(var a:mtr;var n:integer);
var i,j:integer;
begin
repeat
write('Введите размер матрицы от 2 до 20 n=');
readln(n);
until n in [2..20];
for i:=1 to n do
begin
for j:=1 to n do
begin
if j=n-i+1 then a[i,j]:=1
else a[i,j]:=0;
write(a[i,j]:2);
end;
writeln;
end;
end;
end.[/code]
Программа.
[code lang=pascal]uses matrix;
var a:mtr;
n:integer;
begin
form_mtr(a,n)
end.[/code]
Модуль сохранить с именем matrix в папке с программой.