Составить блок-схему данной программы (Маятник)

uses graph, crt;
 var
 driver, regim, m : integer;
 a, b : real;
 p : boolean;
procedure Kadr(u : real; cvet : word);  
var x, y, z, w : integer;
begin
  z := GetMaxX div 2;      
  w := GetMaxY div 10;   
x := round(z + 8*w*sin(u)); 
y := round(w + 8*w*cos(u));
setcolor(cvet);                
setFillStyle(1, cvet);       
line(z, w, x, y);               
pieslice(z, w, 0, 360, 5);  
pieslice(x,y,0,360,w)       
{FillEllipse(x,y,w,round(w/1.4))}
end;   
begin                               
driver := vga;                  
regim := 1;                      
InitGraph(driver, regim, 'c:\bp\bgi');
a := 0;    b := 0;               
m := 1;                           
p := true;                         
SetBkColor(blue);           
SetActivePage(ord(p));    
repeat                             
Kadr(b, GetBkColor);      
b := a;                            
a := a + m*0.01;              
if abs(a) > 0.5 then m := -m;
Kadr(a, yellow);              
SetVisualPage(ord(p));   
SetActivePage(ord(not p));
delay(100);                    
p := not p;
OutTextXY(20, 40, 'Press any key');
until keypressed            
end.