Ребят, помогите пожалуйста с заданием по программированию. Проходим двумерные…

Сперва заполняем главную деоганаль потом другую «деагональ") а потом пользуемся этими деогоналями как ограничениями… как то так но только для нечетного n var a: array[1… 100,1… 100]of integer; i,j,f,g,g1,h,s,n: integer; beginreadln (n); for i: =1 to n do a[i,i]: =1; for i: =1 to n dofor j: =1 to n do if i+j=n+1 then a[i,j]: =1; for i: =1 to n do begin h: =0; for j: =1 to n do beginif (h=0) and (a[i,j]=1) then begin g: =j; h: =1; end elseif (h=1) and (a[i,j]=1) then begin g1: =j; h: =0; end; for f: =g+1 to g1-1 do a[i,f]: =1; end; end; for i: =1 to n do beginfor j: =1 to n do write (a[i,j]: 2); writeln; end; readln; end.