Построение на экране.[PASCAL]

[Ximer]

Помогите пожалуйста с задачкой.
Составить программу для построения на экране квадрата.Предусмотреть движение квадрата в четыре стороны по нажатию клавиш AWSD. Выход из программы осуществляется при нажатии клавиши Esc.

[maladoy]

Procedure KvadratP(x,y,x1,y1:integer); // Объявление названия процедуры и параметров

Begin // Начало составного оператора (служебное слово)

MoveTo(x,y); //Передвигает невидимое перо к точке с координатами (x,y)

LineTo(x1,y); //Рисует линию от текущего положения пера до точки с координатами (x1,y)

LineTo(x1,y1);

LineTo(x,y1);

LineTo(x,y);

End;