pacixor Так?

uses Robot;
begin
  Task('if1');
  right;
  if WallFromUp then
  begin
    down;
    right;
    up;
  end;
  if wallfromdown then
  begin
    up;
    right;
    down;
  end;
  paint;
end.