test robot

uses crt;
{             A_ _ _B_ _ _C_ _ _D
              |     |     |     |
              |     |     |     |
              E_ _ _F_ _ _G_ _ _J
              |     |     |     |
              |     |     |     |
              K_ _ _L_ _ _M_ _ _N
              |     |     |     |
              |     |     |     |
              O_ _ _P_ _ _Q_ _ _S        }
var {Горизонтальные стенки:}
    AB,BC,CD,EF,FG,GJ,KL,LM,MN,OP,PQ,QS:integer;
    {Вертикальные стенки:}
    AE,EK,KO,BF,FL,LP,CG,GM,MQ,DJ,JN,NS:integer;
    {Клетки:}
    ABFE,DCGF,CDJG,EFLK,FGML,GJNM,KLPO,LMQP,MNSQ:integer;
    {Координаты робота:}
    robot:string;
    finish:string;//клетка финиша
    status:integer;//Ввод линий, координат робота
    x:integer;
label start;

procedure write_robot;
begin
                       gotoxy(35,1);write('Введите начальное положение робота');
                       gotoxy(35,2);writeln('ABFE = 1');
                       gotoxy(35,3);writeln('DCFG = 2');
                       gotoxy(35,4);writeln('CDJG = 3');
                       gotoxy(35,5);writeln('EFLK = 4');
                       gotoxy(35,6);writeln('FGML = 5');
                       gotoxy(35,7);writeln('GJNM = 6');
                       gotoxy(35,8);writeln('KLPO = 7');
                       gotoxy(35,9);writeln('LMQP = 8');
                       gotoxy(35,10);writeln('MNSQ = 9');
end;

procedure wall;
begin
gotoxy(25,1);
write('Выберите стенки (Чтобы продолжить, введите 0)');
                    gotoxy(25,2);write('AB = 1');
                    gotoxy(25,3);write('BC = 2');
                    gotoxy(25,4);write('CD = 3');
                    gotoxy(25,5);write('EF = 4');
                    gotoxy(25,6);write('FG = 5');
                    gotoxy(25,7);write('GJ = 6');
                    gotoxy(25,8);write('KL = 7');
                    gotoxy(25,9);write('LM = 8');
                    gotoxy(25,10);write('MN = 9');
                    gotoxy(25,11);write('OP = 10');
                    gotoxy(25,12);write('PQ = 11');
                    gotoxy(25,13);write('QS = 12');
                    //
                    gotoxy(35,2);write('AE = 13');
                    gotoxy(35,3);write('EK = 14');
                    gotoxy(35,4);write('KO = 15');
                    gotoxy(35,5);write('BF = 16');
                    gotoxy(35,6);write('FL = 17');
                    gotoxy(35,7);write('LP = 18');
                    gotoxy(35,8);write('CG = 19');
                    gotoxy(35,9);write('GM = 20');
                    gotoxy(35,10);write('MQ = 21');
                    gotoxy(35,11);write('DJ = 22');
                    gotoxy(35,12);write('JN = 23');
                    gotoxy(35,13);write('NS = 24');
end;


begin
status:=1;
start:
TextColor(white);write('A');if AB=1 then TextColor(green) else TextColor(white);write('_ _ _');TextColor(white); write('B');if BC=1 then TextColor(green) else TextColor(white);write('_ _ _');TextColor(white);write('C');if CD=1 then TextColor(green) else TextColor(white);write('_ _ _');Textcolor(white);writeln('D');
if AE=1 then TextColor(green) else TextColor(white); write('|     ');if BF=1 then TextColor(green) else TextColor(white); write('|     ');if CG=1 then TextColor(green) else Textcolor(white);write('|     ');if DJ=1 then textcolor(green) else Textcolor(white);writeln('|     ');
if AE=1 then TextColor(green) else TextColor(white); write('|     ');if BF=1 then TextColor(green) else TextColor(white); write('|     ');if CG=1 then TextColor(green) else Textcolor(white);write('|     ');if DJ=1 then textcolor(green) else Textcolor(white);writeln('|     ');
TextColor(white);write('E');if EF=1 then TextColor(green) else TextColor(white);write('_ _ _');TextColor(white); write('F');if FG=1 then TextColor(green) else TextColor(white);write('_ _ _');TextColor(white);write('G');if GJ=1 then TextColor(green) else TextColor(white);write('_ _ _');Textcolor(white);writeln('J');
if EK=1 then TextColor(green) else TextColor(white); write('|     ');if FL=1 then TextColor(green) else TextColor(white); write('|     ');if GM=1 then TextColor(green) else Textcolor(white);write('|     ');if JN=1 then textcolor(green) else Textcolor(white);writeln('|     ');
if EK=1 then TextColor(green) else TextColor(white); write('|     ');if FL=1 then TextColor(green) else TextColor(white); write('|     ');if GM=1 then TextColor(green) else Textcolor(white);write('|     ');if JN=1 then textcolor(green) else Textcolor(white);writeln('|     ');
TextColor(white);write('K');if KL=1 then TextColor(green) else TextColor(white);write('_ _ _');TextColor(white); write('L');if LM=1 then TextColor(green) else TextColor(white);write('_ _ _');TextColor(white);write('M');if MN=1 then TextColor(green) else TextColor(white);write('_ _ _');Textcolor(white);writeln('N');
if KO=1 then TextColor(green) else TextColor(white); write('|     ');if LP=1 then TextColor(green) else TextColor(white); write('|     ');if MQ=1 then TextColor(green) else Textcolor(white);write('|     ');if NS=1 then textcolor(green) else Textcolor(white);writeln('|     ');
if KO=1 then TextColor(green) else TextColor(white); write('|     ');if LP=1 then TextColor(green) else TextColor(white); write('|     ');if MQ=1 then TextColor(green) else Textcolor(white);write('|     ');if NS=1 then textcolor(green) else Textcolor(white);writeln('|     ');
TextColor(white);write('O');if OP=1 then TextColor(green) else TextColor(white);write('_ _ _');TextColor(white); write('P');if PQ=1 then TextColor(green) else TextColor(white);write('_ _ _');TextColor(white);write('Q');if QS=1 then TextColor(green) else TextColor(white);write('_ _ _');Textcolor(white);writeln('S');
   if status=1 then begin
                    wall;
                    gotoxy(1,13);
                    read(x);
                    case x of
                    0: status:=2;
                    1: if AB=1 then AB:=0 else AB:=1;
                    2: if BC=1 then BC:=0 else BC:=1;
                    3: if CD=1 then CD:=0 else CD:=1;
                    4: if EF=1 then EF:=0 else EF:=1;
                    5: if FG=1 then FG:=0 else FG:=1;
                    6: if GJ=1 then GJ:=0 else GJ:=1;
                    7: if KL=1 then KL:=0 else KL:=1;
                    8: if LM=1 then LM:=0 else LM:=1;
                    9: if MN=1 then MN:=0 else MN:=1;
                    10: if OP=1 then OP:=0 else OP:=1;
                    11: if PQ=1 then PQ:=0 else PQ:=1;
                    12: if QS=1 then QS:=0 else QS:=1;
                    13: if AE=1 then AE:=0 else AE:=1;
                    14: if EK=1 then EK:=0 else EK:=1;
                    15: if KO=1 then KO:=0 else KO:=1;
                    16: if BF=1 then BF:=0 else BF:=1;
                    17: if FL=1 then FL:=0 else FL:=1;
                    18: if LP=1 then LP:=0 else LP:=1;
                    19: if CG=1 then CG:=0 else CG:=1;
                    20: if GM=1 then GM:=0 else GM:=1;
                    21: if MQ=1 then MQ:=0 else MQ:=1;
                    22: if DJ=1 then DJ:=0 else DJ:=1;
                    23: if JN=1 then JN:=0 else JN:=1;
                    24: if NS=1 then NS:=0 else NS:=1;
                    end;
                    clrscr();
                    goto start;
                    end;
      if status=2 then begin
                       write_robot;

                       end;




end.