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

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