При присваивании символа unicode переменной типа char происходит выход за диапазон переменной

Program Koordinati;
uses crt;
Const
 R=17; A=24; B=35;X0c=-3;Y0el=-3;
Var
 Y0c,X0el,X1,Y1,X2,Y2,Step,m,X,Y,X3,Y3,X4,Y4,Yi,d,E:Real;
 i:integer; H,h1,l1,L,z1,z2,z3,z4,z5,z6,z7,z8,z9:CHAR;
BEGIN
 clrscr;
 L:=#9552;
H:=#9553;
h1:=#9474;
l1:=#9472;
Z1:=#9556;
Z2:=#9559;
Z3:=#9562;
Z4:=#9565;
Z5:=#9572;
z6:=#9532;
z7:=#9570;
z8:=#9567;
z9:=#9575;
 
 x:=14;
 y:=0;
 d:=((-2*b*b*x)*(-2*b*b*x))-(4*b*b*(b*b*x*x+y*y*a*a-2*a*a*y*y0el+y0el*y0el*a*a-a*a*b*b));
 x0el:=(2*b*b*x-sqrt(d))/(2*b*b);
 x:=0;
 y:=38;
 d:=2*y*2*y-4*(x*x-2*x*x0c+x0c*x0c+y*y-r*r);
 y0c:=(2*y-sqrt(d))/2;
 E:=0.001;
 while abs(Yi-Y1)>= E do
 begin
 Yi:=Y1;
 Y1:=Y0el+B*Sqrt(1-Sqr(((X0c-Sqrt(Sqr(R)-Sqr(Yi-Y0c)))-X0el)/A));
 end;
 X1:=X0c-Sqrt(Sqr(R)-Sqr(Y1-Y0c));
 Writeln;
 
 Step:=-10;
 X2:=11;
  For i:=1 to 4 do
  begin
   m:=30;
   Step:=Step/10;
   while m < R do
   begin
    X2:=X2+Step;
    Y2:=-(-Y0el+B*Sqrt(1-sqr((X2-X0el)/A)));
    m:=sqrt(Sqr(X2-X0c)+Sqr(Y2-Y0c));
   end;
   X2:=X2-Step;
  end;
 Y2:=-(-Y0el+B*Sqrt(1-sqr((X2-X0el)/A)));
 
 write('  ',z1);
 
 writeln(l,l,l,l,l,l,l,l,l,l,l,l,l,l,l,z5,l,l,l,l,l,l,l,l,l,l,l,l,l,l,z5,l,l,l,l,l,l,l,l,l,l,l,l,l,z2);
 writeln('  ',h,'               ',h1,'       X      ',h1,'       Y     ',h);
 writeln('  ',z8,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,z6,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,z6,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,z7);
 writeln('  ',h,' p1 ',h1,'   ',X1:7:3,'    ',h1,'   ',Y1:7:3,'   ',h);
 writeln('  ',z8,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,z6,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,z6,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,l1,z7);
 writeln('  ',h,' p2 ',h1,'     ',X2,'    ',h1,'   ',Y2:7:3,'   ',h);
 writeln('  ',z3,l,l,l,l,l,l,l,l,l,l,l,l,l,l,l,z9,l,l,l,l,l,l,l,l,l,l,l,l,l,l,z9,l,l,l,l,l,l,l,l,l,l,l,l,l,z4);
 writeln;
 writeln;
 
END.