Помогите люди)).  Дана квадратная целочисленная матрица размера 4х4. Заменить нулями элементы матрицы, лежащие на главной диагонали. В bordland paskal . задача на двумерный массив

const   n = 4; var   a: array[1..n, 1..n] of integer;   i, j: integer; begin   for i := 1 to n * n do     a[i mod n + 1, (i-1) div n + 1] := random(10);     for i := 1 to n do   begin     writeln();     for j := 1 to n do     begin       if i = j then a[i, j] := 0;       write(a[i, j]:3);     end;   end; end.