Составить программу формирующую двухмерный массив 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;