Procedure Select

Якщо клітинка вже позначена, то команда ігнорується роботом.

Позначені клітинки розпізнаються логічною функцією Позначена:

Function Selected : boolean

Якщо клітинка, у якій перебуває робот, позначена, то функція повертає істинне значення (true), якщо не позначена - хибне значення (
false).

Витерти позначку можна звертанням до процедури СтертиПозн:

Procedure Unselect

Program SelectUnselect;
Var
i: integer;
Begin
For i:=0 to 10 do
Begin
RobotForw;
If i mod 2 = 0 then Select
end;
RobotLeft( 2 );
ReadLn;
For i:=0 to 10 do
Begin
If Selected then Unselect;
RobotForw
end
end.