Смена страниц, Начала мультипликации Опции

[Shults99]

Дана задача, что-то не допирает, как решить.
Используя две страницы памяти, запишите программу моделирующую движение секундной стрелки. Изображая стрелку примените процедуру PieSlice.

Вот до чего мне только удалось дойти. Нужно изменить PieSlice так, чтобы стрелка перемещалась на 6 градусов, но ничего не выходит.

program prog32;
Uses CRT,GRAPH;
Var
d, r, k, m: Integer;
A, B: Real;
Procedure Kadr (A:Real; cvet:Word);
Var x, y, z, w: Integer;
begin
z:=300;
w:=150;
x:= Round (240 + 200*w*Sin(A));
y:= Round (320 + 200*w*Cos(A));
SetColor (cvet);
SetFillStyle (1,cvet);
PieSlice(z, w, 0, 360, 5);
PieSlice(z, w, x, y, 200);
End;

BEGIN
d:= EGA;
r:= 1;
InitGraph(d,r,'\tp7\bgi');
A:=0; B:=0; k:=1; m:=1;
SetBkColor(blue);
SetActivePage(1);
Repeat
Kadr(B,GetBkColor);
B:= A; A:=A+6;
{If Abs(A)>0.5 Then m:=-m;}
Kadr(A,yellow);
SetVisualPage(k);
SetActivePage(1-k);
Delay(60000);
k:= 1-k;
A:=A+1;
Until KeyPressed
END.

Help, if you can!

[Shults99]

volvo
Дана задача, в ней условие. Я прекрасно вижу, что в постинге от Shura на ссылка есть работающий алгоритм, но сказано в задаче использовать, значит они хотят видеть SetVisualPage и т.д. Лана я ссылки посмотрю, если что не понятно будет, буду спрашивать.