program Timer;
uses crt, GraphABC;
var x0, y0, x, y, R, min, sec: integer;
pic:Picture;
begin
SetWindowSize(400,400);
Hidecursor;
x0:=200; y0:=200; min:=0; sec:=0; R:=0;
pic:=Picture.Create('timer.jpg');
SetPenColor(clBlack);
repeat
pic.Draw(0,0,400,400);
sec:=sec+1; min:=sec div 60;
x:=x0+Round(120*sin(Pi*sec/30));
y:=y0-Round(120*cos(Pi*sec/30));
SetPenWidth(5); Line(x0,y0,x,y);
x:=x0+Round(100*sin(Pi*min/30));
y:=x0-Round(100*cos)Pi*min/30));
SetPenWidth(5); Line(x0,y0,x,y);
sleep(1000);
until min>=60;
end.
Как в этом коде добавить минутную стрелку, скажите пожалуйста!