Ввод данных с клавиатуы м GraphABC

uses GraphABC;
 
var
   a, b, c: integer;
 
var
   x, y, z: real;
 
begin
   SetWindowTitle(''); 
   SetWindowWidth(640); 
   SetWindowHeight(360); 
   Window.CenterOnScreen(); 
   Window.IsFixedSize := true; 
   Window.Clear(Color.Black);
   
   Writeln('a=1-8', a); 
   Writeln('b=1-6', b); 
   Writeln('c=5-10', c);
   readln(a, b, c); 
   for var i := 0 to 3600 do 
   begin
      z := 6.2832 * i / 360; 
      x := 320 + 90 * SIN(c * z) * COS(a * z); 
      y := 175 + 90 * COS(c * z) * SIN(b * z); 
      SetPixel(x, y, RGB(Random(255), Random(255), Random(255))); 
   end; 
end.

uses GraphABC;
var a,b,c,cn:integer;
var x,y,u:real;
begin
   SetWindowSize(500,500); 
   Window.CenterOnScreen; 
   repeat
   writeln('Введите а от 1 до 8 а=');
   readln(a);
   until a in [1..8] ;
   repeat
   writeln('Введите b от 1 до 6 b=');
   readln(b);
   until b in [1..6] ; 
   repeat
   writeln('Введите c от 5 до 10 c=');
   readln(c);
   until c in [5..10] ;
   Window.Clear;
   cn:=250;//координата центра экрана
   u:=0;//угол поворота
   Pen.Color:=clRed;
   while u<=2*pi do
    begin
      x:=cn+90*sin(c*u)*cos(a*u); 
      y:=cn+90*cos(c*u)*sin(b*u);
      if u=0 then moveto(round(x), round(y))
      else lineto(round(x),round(y));
      u:=u+0.0001;
     end; 
end.