Не работает программа

uses graphABC;
const
cx = 200;
cy = 200;
radius = 150;
 
 
 
procedure Dark;
begin
ClearWindow(clBlack);
 
SetpenColor(clGreen);
 
SetBrushColor(clBlack);
SetFontColor(clWhite);
TextOut(cx - 30, 2 * cy - 50, 'False');
end;
 
procedure Light;
begin
ClearWindow(clSilver);
 
SetBrushColor(clYellow);
Pie(cx, cy - radius div 2, 3 * cx, 210, 330);
 
SetPenColor(clLime);
 
SetBrushColor(clYellow);
Circle(cx, cy - radius div 2, 35);
 
SetBrushColor(clYellow);
SetFontColor(clBlack);
TextOut(cx - 30, 2 * cy - 50, 'True');
end;
 
procedure DrawLamp(state: Boolean);
begin
if state then
Light
else Dark;
end;
 
var
   lampState: Boolean;
   key: Char;
begin
     lampState := False;
     repeat
           DrawLamp(lampState);
           key:=readkey;
           if key = 'h' then lampState := Not(lampState);
     until key = #27;
end.