Составьте в паскале квадрат и у него стороны цветные

Program znaniyya;
uses drawman;
Field (10,10)
begin
ToPoint  (1,1);
PenDown;
ToPoint (1,8);
ToPoint (8,8);
ToPoint (1,8);
ToPoint (1,1);
PenUp;
ToPoint (0,0);
end.