Разбор программы

program poezd;
uses graphabc;
 
const sl=1000; // константа 'сна'
 
type
   ss=^vagon;
   vagon=record
      tip:boolean;
      next:ss;
      end;             //описывается запись
 
var i,n,k:integer;
    s1,s2,o,inp,outp,tupik:ss;
    b:boolean;              //переменные
 
procedure outdoroga;
var j:integer;
    s:ss;
begin
  setpencolor(clblack);
  setpenwidth(1);
  line(0,13,1000,13);
  line(0,23,1000,23);
  line(505,53,505,290);
  line(495,53,495,290);
  line(490,285,510,285);
  Arc(535,53,40,90,180);
  Arc(535,53,30,90,180);
  Arc(465,53,40,0,90);
  Arc(465,53,30,0,90);
  setbrushcolor(clwhite);
  textout(465,300,'Тупик');
  s:=inp;
  j:=1;
  while s<>nil do
    begin
    if s^.tip then setbrushcolor(clgreen) else setbrushcolor(clblue);
    rectangle(510+j*22,10,530+j*22,26);
    s:=s^.next;
    j:=j+1;
    end;
  s:=outp;
  j:=1;
  while s<>nil do
    begin
    if s^.tip then setbrushcolor(clgreen) else setbrushcolor(clblue);
    rectangle(490-j*22,10,470-j*22,26);
    s:=s^.next;
    j:=j+1;
    end;
  s:=tupik;
  j:=1;
  while s<>nil do
    begin
    if s^.tip then setbrushcolor(clgreen) else setbrushcolor(clblue);
    rectangle(492,30+j*22,508,50+j*22);
    s:=s^.next;
    j:=j+1;
    end;
  setbrushcolor(clwhite);
               textout(10,240,'Кол-во ходов   : '+inttostr(k));
  if n<>0 then textout(10,270,'Кол-во вагонов : '+inttostr(n));
end;
//процедура описания дороги и ее заполнения
  
procedure v;
var q:ss;
begin
q:=inp^.next;
inp^.next:=tupik;
tupik:=inp;
inp:=q;
end;
 
procedure vpaint;
begin
clearwindow;
setpenwidth(3);
setpencolor(clred);
Arc(535,53,20,90,180);
line(515,52,525,45);
line(515,52,510,45);
outdoroga;
redraw;
sleep(sl);
end;
 
procedure iz;
var p:ss;
begin
p:=tupik^.next;
tupik^.next:=outp;
outp:=tupik;
tupik:=p;
end;
 
procedure izpaint;
begin
clearwindow;
setpenwidth(3);
setpencolor(clred);
Arc(465,53,20,0,90);
line(467,33,477,28);
line(467,33,477,43);
outdoroga;
redraw;
sleep(sl);
end;
 
procedure mimo;
var p:ss;
begin
p:=inp^.next;
inp^.next:=outp;
outp:=inp;
inp:=p;
end;
 
procedure mimopaint;
begin
clearwindow;
setpenwidth(3);
setpencolor(clred);
line(485,18,515,18);
line(487,18,497,13);
line(487,18,497,23);
outdoroga;
redraw;
sleep(sl);
end;
 
begin
k:=0;
setfontsize(20);
setfontcolor(clblue);
setwindowsize(1000,350);
lockdrawing;
randomize;
textout(100,100,'ВВедите количество вагонов (кратно 2) : ');
outdoroga;
redraw;
readln(n);
if n<=0 then begin n:=6; textout(100,140,'Ошибка! Выбрано вагонов : '+inttostr(n)); end else
if (n mod 2) <> 0 then begin n:=n+1; textout(100,140,'Ошибка! Выбрано вагонов : '+inttostr(n)); end else textout(100,140,'Количество вагонов : '+inttostr(n));
redraw;
sleep(sl);
o:=nil;
for i:=1 to n div 2 do 
  begin
    new(s1);
    s1^.next:=o;
    s1^.tip:=true;
    o:=s1;
  end;
o:=nil;
for i:=1 to n div 2 do 
  begin
    new(s2);
    s2^.next:=o;
    s2^.tip:=false;
    o:=s2;
  end;
o:=nil;
for i:=1 to n do
  begin
    if random(2)=1 then b:=true else b:=false;
    if b then if s1<>nil then 
                    begin
                    inp:=s1;
                    s1:=s1^.next;
                    inp^.next:=o;
                    o:=inp;
                    end
                    else
                    begin
                    inp:=s2;
                    s2:=s2^.next;
                    inp^.next:=o;
                    o:=inp;
                    end
         else if s2<>nil then 
                    begin
                    inp:=s2;
                    s2:=s2^.next;
                    inp^.next:=o;
                    o:=inp;
                    end
                    else
                    begin
                    inp:=s1;
                    s1:=s1^.next;
                    inp^.next:=o;
                    o:=inp;
                    end;
  end;
clearwindow;
outdoroga;
redraw;
outp:=inp;
inp:=inp^.next;
outp^.next:=nil;
sleep(sl);
b:=not(outp^.tip);
k:=1;
mimopaint;
while (tupik<>nil)or(inp<>nil) do
  begin
  k:=k+1;
  if (tupik<>nil)and(tupik^.tip=b) then begin 
                                          if b then b:=false else b:=true;
                                          if (inp<>nil)and(tupik^.tip=inp^.tip) then begin mimo; mimopaint; end else begin
                                          iz;
                                          izpaint;
                                          end;
                                        end
                                   else if inp^.tip=b then begin
                                                             if b then b:=false else b:=true;
                                                             mimo;
                                                             mimopaint;
                                                           end
                                                      else begin v;
                                                                 vpaint;
                                                                 end;
  end;
  clearwindow;
  outdoroga;
  redraw;
  sleep(sl);
end.