Единицы по диагонали

[ChipLink]

Данна таблица StringGrid(она полюбому у меня будет квадратной), в которую необходимо по диагонали записать единицы, а остальные клетки заполнить нулями. Подскажите пожалуйста как это сделать

[puporev]

Свойство главной диагонали - номер столбца равен номеру строки, т.е. if i=j then a[i,j]:=1 else a[i,j]:= 0;

[andrey4623]

примерно так

for i := 0 to "длина строки" do
for j := 0 to "длина столбца" do
if i = j then "в ячейку [i,j] записать 1"
else "в ячейку [i,j] записать 0"