Матрицы в паскале

[gx5rmsu8x]

Нужно написать программу, которая задаст и намечатаетт матрицы, у которых элементы на побочной диагонали равны были единице, которые ниже - по нулям, которые выше- стали двойками
Есть текст программы, которую нужно модифицировать таким образом. Тут еденицы выходят по главной диагонали.

uses crt;
var
i,j,n:integer;
m:array[1..100,1..100] of integer;
begin
clrscr;
writeln('Vvedite klichestvo elementov:');
readln(n);

for i:=1 to n do
begin
for j:=1 to n do
begin
m[i,j]:=random(10);
write(m[i,j]);
end;
writeln;
end;

writeln;

for i:=1 to n do
begin
for j:=1 to n do
begin
if i=j then m[i,j]:=1 else m[i,j]:=0;
write(m[i,j]);
end;
writeln;
end;

writeln;

for i:=1 to n do begin
for j:=1 to n do begin
if j<i then m[i,j]:=2;
if j>i then m[i,j]:=3;
write(m[i,j]);
end;
writeln;
end;

readln;
end.

[Alex Cones]

http://programmersforum.ru/showthread.php?t=70310
Почитайте. Полезно.