Помогите с анимацией Опции

[Player]

Всем желаю здравствовать!!! Помогите, пожалуйста "привязать" карандаш к рисованию квадрата.

Код

Program Animation;
Uses Crt,Graph;
Var I,Gd,Gm:Integer;
Begin
Clrscr;
Gd:=Detect;
Gm:=2;
InitGraph (Gd,Gm,'C:\BP\BGI');
Repeat
SetBKColor (7);
ClearDevice;
SetColor (9);

For I:=200 To 300 Do Begin
PutPixel (250,I,9);
Delay (2500);

SetColor (6);
Line (250,200,290,110);
Line (290,110,305,110);
Line (305,110,250,200);
End;

For I:=250 To 350 Do Begin
PutPixel (I,300,9);
Delay(2500);
End;

For I:=200 To 300 Do Begin
PutPixel (350,I,9);
Delay(2500);
End;

For I:=250 To 350 Do Begin
PutPixel (I,200,9);
Delay(2500);
End;

Until Keypressed;
CloseGraph;
End.

[Guest]

Спасибо, GoodWind!
Завтра попробую.