Крестики-нолики: плохо прорисовываются "нолики"

program game1;
 
uses
  graphabc, help;
 
 
procedure paintfield;
var
  x1, y1, x2, y2, x3, y3, x4, y4: integer;
begin
  x1 := 50;
  y1 := 150;
  x2 := 50;
  y2 := 250;
  x3 := 150;
  y3 := 50;
  x4 := 250;
  y4 := 50;
  while x1 < 350 do
  begin
    x1 := x1 + 1;
    line(50, y1, x1, y1);
    x2 := x2 + 1;
    line(50, y2, x2, y2);
    y3 := y3 + 1;
    line(x3, 50, x3, y3);
    y4 := y4 + 1;
    line(x4, 50, x4, y4);
    sleep(5);
  end;
  writeln('1                                                  2                                                  3');
  lines(11);
  writeln('4');
  lines(11);
  writeln('7                                                  8                                                  9');
end;
 
 
procedure cross(num: integer);
var
  x1, y1, x2, x, y,xc,yc: integer;
begin
  case num of
    1:
      begin
        xc:=100;
        yc:=100;
      end;
    2:
      begin
        xc:=200;
        yc:=100;
      end;
    3:
      begin
        xc:=300;
        yc:=100;
      end;
    4:
      begin
        xc:=100;
        yc:=200;
      end;
    5:
      begin
        xc:=200;
        yc:=200;
      end;
    6:
      begin
        xc:=300;
        yc:=200;
      end;
    7:
      begin
        xc:=100;
        yc:=300;
      end;
    8:
      begin
        xc:=200;
        yc:=300;
      end;
    9:
      begin
        xc:=100;
        yc:=300;
      end;
  end;
  x1 := xc - 25;
  y1 := yc - 25;
  x2 := xc + 25;
  x := 0;
  y := 0;
  while x1 + x < x2 do
  begin
    x := x + 1;
    y := y + 1;
    line(x1, y1, x1 + x, y1 + y);
    line(x2, y1, x2 - x, y1 + y);
    sleep(5);
  end;
end;
 
 
procedure zero(num: integer);
var
  r, x, y, xc, yc: integer;
  u: real;
begin
case num of
    1:
      begin
        xc:=100;
        yc:=100;
      end;
    2:
      begin
        xc:=200;
        yc:=100;
      end;
    3:
      begin
        xc:=300;
        yc:=100;
      end;
    4:
      begin
        xc:=100;
        yc:=200;
      end;
    5:
      begin
        xc:=200;
        yc:=200;
      end;
    6:
      begin
        xc:=300;
        yc:=200;
      end;
    7:
      begin
        xc:=100;
        yc:=300;
      end;
    8:
      begin
        xc:=200;
        yc:=300;
      end;
    9:
      begin
        xc:=100;
        yc:=300;
      end;
  end;
  r := 25;
  u := -pi / 2;
  moveto(xc, yc - r);
  while u < 2 * pi + pi / 2 do
  begin
    x := xc + round(r * cos(u));
    y := xc + round(r * sin(u));
    lineto(x, y);
    sleep(5);
    u := u + 0.02;
  end;
end;
 
 
var
  a, b, c, num: byte;
 
 
begin
  setwindowsize(400, 400);
  centerwindow;
  setpenwidth(5);
  {loadwindow('Безымянный.png');
  readln;}
  while true do 
  begin
    clearwindow;
    writeln('Выберите режим игры');
    writeln('1 - с компьютером');
    writeln('2 - с другом');
    readln(a);
    lines(22);
    clearwindow;
    
    if a=2 then begin;
    paintfield;
    readln(num);
    cross(num);
    readln(num);
    zero(num);
    readln(num);
    cross(num);
    readln(num);
    zero(num);
    readln(num);
    cross(num);
    readln(num);
    zero(num);
    readln(num);
    cross(num);
    readln(num);
    zero(num);
    readln(num);
    cross(num);
    
    end;
    
    if a = 1 then begin
      writeln('Выберите сложность');
      writeln('1 - simple');
      writeln('2 - pro');
      lines(22);
      readln(b);
      clearwindow;
      writeln('Крестики или нолики, вот в чем вопрос?');
      writeln('1 - крестики');
      writeln('2 - нолики');
      lines(22);
      readln(c);
      clearwindow;
      
      
      paintfield;
      
      
      
    end;
    
  end;
end.

procedure lines(i:integer);
var r: integer;
begin
for r:=1 to i do begin
writeln;
end;
end;

x := xc + round(r * cos(u));
y := yc + round(r * sin(u));//не xc

Circle(x,y,r);

writeln('1                                             2                                             3');
lines(11);

while u < 2 * pi + pi / 2 do
  begin
    x := xc + round(r * cos(u));
    y := xc + round(r * sin(u));
    lineto(x, y);
    u := u + 0.00001;
  end;