Скоро у вас будет Pascal...
Я паскальщик, поэтому только на английском:
repeat
Paint;
Up;
until FreeFromRight;
Up;
Up;
repeat
Paint;
Up;
until WallFromUp;
Left; Left;
repeat
Paint;
Left;
until FreeFromUp;
Дальше по такому же принципу делаешь остальные, только на русском