Сделайте программу для этой матрицы, без const. С выводом в текстовый документ

var a:array [1..9,1..9] of integer;

i,j:integer;

begin

for i:= 1 to 9 do

begin

for j:=1 to 9 do

begin

if (i+j>=5) and (j-i>=1) and (i<>1) and (j<>9) then a[i,j]:=0 else a[i,j]:=1;

write(a[i,j]:3);

end;

writeln

end

end.