Графика, помогите с задачкой Опции

[Ilius]

Составить программу для управления размерами прямоугольника и его положением на экране.Левый верхний угол исходного прямоугольника расположен в точке (50,50), правый нижний в точке(100,100).Управление выполняется клавишами:
">"-увелич.ширину прямоугольника на 5 точек;
"<"-уменьш.ширину прямоугольника на 5 точек;
"+" -увелич. высоту на 5 точек;
"-" уменьшает высоту на 5 точек.
Клавиши управл.курсором-вызывают перемещение в соответствующем направлении.
"Ввод завершает работу программы.

[klem4]

InitGraph(gd, gm, 'ТУТ укажи полный пусть к папке BGI');

Или в настройках компилера.


еще вариант

uses crt, graph;
type

  TRect = Object
    leftX, leftY, height, width: Integer;

    constructor Create(const x, y, h, w: Integer);
    destructor Done;

    procedure Run;

    function Request: Char;
    procedure Show(const visible: Boolean);
  end;

constructor TRect.Create(const x, y, h, w: Integer);
begin
  leftX := x;
  leftY := y;
  height := h;
  width  := w;
  Show(true);
end;

destructor TRect.Done;
begin end;

procedure TRect.Show(const visible: Boolean);
begin
  if visible then SetColor(white) else SetColor(black);
  Rectangle(leftX, leftY, leftX + width, LeftY + Height);
end;

function TRect.Request: Char;
var
  ch: Char;
begin
  ch := readkey;

  Show(false);

  case ch of
    #0: case readkey of
          #72: dec(leftY, 5);
          #80: inc(leftY, 5);
          #75: dec(leftX, 5);
          #77: inc(leftX, 5);
        end;
    '>', '.': inc(width, 5);
    '<', ',': dec(width, 5);
    '+', '=': inc(height, 5);
    '-':      dec(height, 5);
  end;

  Show(true);

  Request := ch;
end;

procedure TRect.Run;
begin
  while (Request <> #27) do;
end;

var
  gd, gm: Integer;
  R: TRect;
begin
  gd := Detect;
  InitGraph(gd, gm, '');

  R.Create(50, 50, 100, 100);
  R.Run;
  R.Done;

  CloseGraph;
end.