Помогите решить задачу в Delphi

[romash]

Сформировать квадратную матрицу порядка n по заданному образцу:
1 1 1... 1 1 1
2 2 2... 2 2 0
3 3 3... 3 0 0

n-1 n-1 0... 0 0 0
n 0 0... 0 0 0