Задачка на заполнение матрицы., Не получается решить... Опции

[Shaddix]

Задача такая: Заполнить матрицу по правилу
1 2 3 ... 10
0 1 2 ... 9
0 0 1 ... 8
......
0 0 0 ... 1

Программа выдает другой результат.

Код

Var f:array[1..10,1..10] of Integer;
i,j,m:integer;
begin
for i:=1 to 10 do
begin
m:=1;
for j:=1 to 10 do
begin
if i<j then f[i,j]:=m;
if i=j then f[i,j]:=1;
if i>j then f[i,j]:=0;
write(f[i,j],' ');
end;
writeln;
end;
end.

Помогите, пожалста Ни как не могу разобраться...