Составить программу формирующую двухмерный массив 10^10 заполненный нулями, затем вывести на экран, затем преобразовать таким образом чтобы элементы главной диагонали были равны 1

Program array

var

i, j:integer;

a: array [1 ... 10, 1 ... 10] of integer;

begin

for i:=1 to 10 do begin

for j:=1 to 10 do begin

a[i, j] = 0;

writeln (a[i, j],"/t") ;

end;

end;

for i:=1 to 10 do begin

for j:=1 to 10 do begin

if (i = j) then a[i, j] = 1;

writeln (a[i, j],"/t") ;

end;

end;

end;