Управление размарами прямоугольника(паскаль)

[Anny_Apple]

Кто может, помогите!В графике не разбираюсь.

Составить программу для управления размерами прямоугольника и его положением на экране. Упаравление выполняется клавишами:
">" - увеличивает ширину прямоугольника;
"<" - уменьшает ширину прямоугольника;
"+" - увеличивает высоту прямоугольника;
"-" - уменьшает высоту прямоугольника;

[casekey]

program graph_test;
uses Graph, Crt;

var GD,GM,x1,y1,x2,y2: integer;
key: char;

procedure init(x1,y1,x2,y2: integer);
begin
clrscr;
line(x1,y1,x1,y2);
line(x1,y2,x2,y2);
line(x2,y2,x2,y1);
line(x2,y1,x1,y1);
end;

begin
DetectGraph(GD,GM);
InitGraph(GD,GM,'С:\Program Files\tp7\BGI');
x1:=100;
y1:=200;
x2:=300;
y2:=400;
init(x1,y1,x2,y2);
while (ord(key)<>27) do
    begin
    key:=readkey;
    case ord(key) of
    75: dec(x2);
    77: inc(x2);
    61: inc(y2);
    45: dec(y2);
    end;
    init(x1,y1,x2,y2);
    end;
end.

работоспособность не проверял, писал сразу

[Anny_Apple]

спасибо))))))))