Графический режим

uses crt,graph;
{mass punktov}
type punkt=record
           x,y,x1,y1:integer;
           end;
 
procedure Menyu;
var x,y,x1,y1:integer;
    i,c:byte;
    a:punkt;
    move:boolean;
    k:char;
begin
  x:=250;y:=30;
 
  Setcolor(yellow);
  outtextxy(250,70,'Calculator');
  outtextxy(250,120,'HELP');
  outtextxy(250,170,'Info');
  outtextxy(250,220,'Exit');
 
  a.x:=235;  a.y:=60;
  a.x1:=365; a.y1:=90;
  setcolor(red);
  rectangle(a.x, a.y, a.x1, a.y1);
  move:=true;
  repeat
  if keypressed then
  begin
    k:=readkey;
    if k in [#80, #72] then
    begin
      setcolor(blue);
      rectangle(a.x, a.y, a.x1, a.y1);
      case k of
 
      #80:begin
            a.y1:=a.y1+50;
            a.y:=a.y+50;
            move:=true;
          end;
      #72:begin
            a.y1:=a.y1-50;
            a.y:=a.y-50;
            move:=true;
          end;
      end;
    end;
    setcolor(red);
    rectangle(a.x, a.y, a.x1, a.y1);
  end;
  begin
    k:=readkey;
    if (k=#13) and (a.y=60) then
    begin
      menyu;
    end;
    if (k=#13) and (a.y=110) then
    begin
      menyu;
    end;
    if (k=#13) and (a.y=160) then
    begin
      menyu;
    end;
    if (k=#13) and (a.y=210) then
    k:=#27;
 
    if (a.y > 210) then a.y:=60;
    if (a.y1 > 240) then a.y1:=90;
    if (a.y < 60) then a.y:=210;
    if (a.y1 < 90) then a.y1:=240;
 
  end;
  until k=#27;
end;
 
var gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
menyu;
closegraph;
end.

    case k of
      #80:begin
            a.y1:=a.y1+50;
            a.y:=a.y+50;
            if (a.y > 210) then a.y:=60;
            if (a.y1 > 240) then a.y1:=90;
            move:=true;
          end;
      #72:begin
            a.y1:=a.y1-50;
            a.y:=a.y-50;
            if (a.y < 60) then a.y:=210;
            if (a.y1 < 90) then a.y1:=240;
            move:=true;
          end;
      end;