Ekrandaki isimin ortasını kare şeklinde yazmayan program

uses crt;
      var
      x,ad,a,i:integer;
      begin
      clrscr;
      for i:=1 to 8 do
      for a:=1 to 8 do
      begin
      gotoxy(9*i-3,3*a);
      if (i>=3) and  (i<=6) and (a>=3) and  (a<=6) then
      writeln('')
      else
      writeln('sonnur');
      end;
      readln;

      end.


Linkback: https://www.buyuknet.com/ekrandaki-isimin-ortasini-kare-seklinde-yazmayan-program-t8618.0.html