Написать программу - в двумерном массиве заменить нулями элементы главной диагонали (главная диагональ идет из левого верхнего угла в правый нижний).С выводом исходной и полученной матриц.

const  n = 10;var  a: array[1..n, 1..n] of integer;  i, j: integer;begin  Randomize;  Writeln('Исходная матрица');  for i := 1 to n do  begin    for j := 1 to n do    begin      a[i, j] := Random(101) - 50;      Write(a[i, j]:4)    end;    Writeln  end;  for i:=1 to n do a[i,i]:=0;  Writeln('Результирующая матрица');  for i := 1 to n do  begin    for j := 1 to n do Write(a[i, j]:4);    Writeln  endend.Тестовое решение:Исходная матрица -19  15  42  44  32  41 -11 -21  14 -29  33  -8 -21 -33 -38  28  21  43  39 -46  -1  33  13  23 -38  32 -25 -26  43  41   7   6  39  14  48  37  -3  -3  -2 -41 -26  40 -38 -24  16  43 -17   3   7   7  37  20  17  44  28  -2 -49 -32  32 -50  16 -35 -14  23  14 -23   3  15 -31 -24 -19 -26  -5  30  30   9  20 -13 -43 -30  -2  22  17 -15 -46  38  39  46  37  -1  36 -22  15  -2  -7 -41   3 -10  12 -12Результирующая матрица   0  15  42  44  32  41 -11 -21  14 -29  33   0 -21 -33 -38  28  21  43  39 -46  -1  33   0  23 -38  32 -25 -26  43  41   7   6  39   0  48  37  -3  -3  -2 -41 -26  40 -38 -24   0  43 -17   3   7   7  37  20  17  44  28   0 -49 -32  32 -50  16 -35 -14  23  14 -23   0  15 -31 -24 -19 -26  -5  30  30   9  20   0 -43 -30  -2  22  17 -15 -46  38  39  46   0  -1  36 -22  15  -2  -7 -41   3 -10  12   0