меню в абс паскале

program Menu;
 
uses crt,GraphABC,Events,Utils;
  var key,a,pr:integer;
 
procedure prorisMenu;
 
begin
SetWindowSize(800,600);
ClearWindow(clwhite);
SetPenWidth(1);
SetFontSize(45);
SetFontColor(clFuchsia);
TextOut(340,36,'Maze');
 
{êîìïîíåíòû ìåíþ}
 
SetFontSize(25);
SetFontColor(clTeal);
Rectangle(320,170,500,220);
TextOut(360,178,'GAME');
Rectangle(320,270,500,320);
TextOut(355,278,'LEVEL');
Rectangle(320,370,500,420);
TextOut(370,378,'EXIT');
end;
 
 
function pom:char;
var ch:char;
begin
ch:=readkey();
pom:=ch;
end;
 
procedure perehod(key:integer);
var s,k:integer;
begin
s:=70;
 k:=120;
case pom of
 #80: begin
 if s<70  then begin
          SetBrushColor(clMaroon);
          floodfill(320,s-100,clMaroon);
          Rectangle(320,s-100,500,k-100);
             s:=s-100; k:=k-100;
      end;
      end;
 #70: begin
 if s<>470 then begin
        SetBrushColor(clMaroon);
        floodfill(320,s+100,clMaroon);
        Rectangle(320,s+100,500,k+100);
          s:=s+100; k:=k+100;
          end;
     end;
     end;
     end;
     
begin
prorisMenu;
perehod(key);
end.