Заменить нулями все элементы, расположенные на главной диагонали двумерного динамического массива A[N,N]

Program Nothing;
uses
crt;
const
g=9;
h=9;
var
//c:array [,] of integer;
c:array [1..g,1..h] of integer;
a,b,x,y:integer;
begin
randomize;
//write('Ââåäèòå êîë-âî ñòðîê: ');
//readln(a);
//write('Ââåäèòå êîë-âî ñòîëáöîâ: ');
//readln(b);
//c:=new integer[a,b];
for x:=1 to g do
    for y:=1 to h do
    begin
         if (x=y) then c[x,y]:=0
         else
        c[x,y]:=random(899)+100;
    end;
 
for x:=0 to g do
begin
    for y:=0 to h do
    if (x=0) then
    begin
    textcolor(green);
    write('| ',y,' |');
    textcolor(black);
    end
    else if (y=0) then
    begin
    textcolor(green);
    write('| ',x,' |');
    textcolor(black);
    end
    else if (x<>0)and(y<>0) then
         if (x=y) then
         write('| ',c[x,y],' |')
         else
        write('|',c[x,y],'|');
writeln();
end;
end.