Ребят нужна помощь по информатике учитель сказал сделать циферблат часов паскаль напиши подробно всю программу как делать

ребят нужна помощь) по информатике учитель сказал сделать циферблат часов паскаль) напиши подробно всю программу как делать

                x2 := x1+Round(0.85*r1*sin(2*pi*r/60/12));      k:= GraphResult;  Line(x01,y01,x2,y2) {Выводим деление}  r1 := round(0.9*r); {Часовые деления} x1 := GetMaxX div 2;                 x01:= x1+Round(r2*sin(2*pi*k/60));      d := detect;                 {Координаты минутной стрелки} end        d,r,r1,r2,rr,k,

end;

 r2 := round(0.95*r); {Минутные деления}

 Circle(x1,y1,round(1.02*r)); {Вторая окружность} begin                  Line(x1,y1,x2,y2); y1 := GetMaxY div 2;                 {Координаты часовой стрелки} begin   else            rr := r1 {Часовые деления} {Определяем отношение сторон и размеры экрана} inc(r);

                y01:= y1-Round(r2*Xasp*cos(2*pi*k/60)/Yasp);

 SetLineStyle(SolidLn,0,ThickWidth);  Circle(x1,y1,r); {Первая внешняя окружность}   {Инициируем графику} until KeyPressed;                  Line(x1,y1,x01,y01);  for k := 0 to 59 do {Деления циферблата} CloseGraph;                  Line(x1,y1,x01,y01); if ReadKey=#0 then k:=ord(ReadKey);  x01 := x1+Round(rr*sin(2*pi*k/60));  r:= round(3*GetMaxY*Yasp/8/Xasp);

GetAspectRatio(Xasp, Yasp);

{Вычисляем радиусы:}       else

 r := 0; {Счетчик минут в одном часе}

           rr:= r2 ; {Минутные деления}

         if k mod 5=0 then  repeat       if not KeyPressed then      if k grOK then  WriteLn(GraphErrorMSG(k))  y2 := y1-Round(r*Xasp*cos(2*pi*k/60)/Yasp); {Определяем координаты концов делений}

end.

                y2 := y1-Round(0.85*r1*Xasp*cos(2*pi*r/60/12)/Yasp);

                 Line (x1,y1,x01,y01 ) ;

         begin        x1,y1,x2,y2,x01,y01: Integer;                  Delay(100); {Для имитации реального темпа                                      нужно установить задержку 60000}                                     {Для удаления стрелок выводим их еще раз!}

       Xasp,Yasp : Word;

{Готовим вывод стрелок} end  y01 := y1-Round(rr*Xasp*cos(2*pi*k/60)/Yasp);    var                 {Изображаем стрелки} {Цикл вывода стрелок}     begin if r=12*60  then  SetWriteMode(XORPut);  r := 0    for k := 0 to 59 do {k = минуты}  x2 := x1+Round(r*sin(2*pi*k/60)); {Изображаем циферблат}

     InitGraph(d, r, ‘ ‘) ;

• попробуй так Uses Graph, CRT;
  {Наращиваем и корректируем счетчик минут в часе}