[Страдалецъ]

Если я правильно понимаю, речь идет о таком:

Код:

Var
    Mas: Array[1..8,1..8] of Integer;
begin
for i := 1 to 8 do mas[i,i] := 0;
end;

получается, что у вас некая шахматная доска диагональ которой будет заполнена нулями.