Cформировать квадратную матрицу порядка n

[Proskurina]

Здравствуйте, помогите пожалуйста решить задачу на делфи через StringGrid и составить блок-схему. Cформировать квадратную матрицу порядка n

вот матрица

[Stilet]

var i,j:integer;
begin
with StringGrid1 do
 for i:=0 to RowCount-1 do for j:=0 to ColCount-1 do
  if (ColCount-j-1)=i then  Cells[i,j]:=IntToStr(i+1) else Cells[i,j]:='0';
end;

[Proskurina]

Спасибо большое)