Problem z programem losującym

Napisałem program w Free Pascal Compiler. Program miał sprawdzić ile razy jaś dojdzie do szkoły. Jaś mijał cztery skrzyżowania i na każdym z nich rzuca kostką 1,2 idzie do kiosku, 3,4 idzie dalej, 5,6 wraca do domu. W programie jest błąd ale od godziny szukam i nie mogę znaleźć. Bardzo proszę o pomoc.

program petla;

uses
 crt;

var
  xa, {wynik losowania do skrzyľowania 1}
  xb, {wynik losowania do skrzyľowania 2}
  xc, {wynik losowania do skrzyľowania 3}
  xs  {wynik losowania do skrzyľowania 4}
  : double;
  ca, {warto˜c procentowa dojsc do kiosku a}
  cb, {warto˜c procentowa dojsc do kiosku c}
  cc, {warto˜c procentowa dojsc do kiosku b}
  cd, {warto˜c procentowa dojsc do domu}
  cs  {warto˜c procentowa dojsc do szkoˆy}
  : real;
  n,   {ilosc prob}
  i,   {ilosc dni}
  il_a, {czestosc dojsc do a}
  il_b, {czestosc dojsc do b}
  il_c, {czestosc dojsc do c}
  il_d, {czestosc dojsc do domu}
  il_s,  {cz©sto˜ doj˜c do szkoˆy}
  ile : integer;

begin
clrscr;
 il_a := 0;
 il_b := 0;
 il_c := 0;
 il_d := 0;
 randomize;
 write('Podaj ilosc prob: ');
 readln(n);
  for i := 1 to n
   do
     xa := random(7);
     write(xa);
      if (xa = 1) or (xa = 2)     {piersze skrzyľowanie}
        then
         il_a := il_a + 1           {dojscie do kiosku a}
        else
         if (xa = 3) or (xa = 4)
           then
            xb := random(7);
              if (xb = 1) or (xb = 2) {drugie skrzyľowanie}
               then
                 il_b := il_b  + 1      {dojscie do kiosku b}
               else
                 if (xb = 3) or (xb = 4)
                  then
                    xc := random(7);
                     if (xc = 1) or (xc = 2) {trzecie skrzyľowanie}
                       then
                        il_c := il_c + 1   {dojscie do kiosku c}
                       else
                        if (xc = 3) or (xc = 4)
                          then
                           begin
                             xs := random(7);
                              if (xs = 1) or (xs = 2) {czwarte skrzyľowanie}
                                then
                                 il_s := il_s + 1  {dojscie doszkoˆy}
                                else
                                 begin
                                   if (xs = 3)  or (xs = 4)
                                    then
                                      il_d := il_d + 1
                                    else
                                      il_d := il_d + 1
                                 end;
                           end;
                          else
                           il_d := il_d + 1
                  else
                    il_d := il_d + 1
           else
            il_d := il_d + 1

  ca := il_a/n*100;
  cb := il_b/n*100;
  cc := il_c/n*100;
  cs := il_s/n*100;
  cs := il_s/n*100;
writeln;
writeln('Kiosk a : ',ca:5:2,' %');
writeln('Kiosk b : ',cb:5:2,' %');
writeln('Kiosk c : ',cc:5:2,' %');
writeln('Szkola  : ',cs:5:2,' %');
writeln('Dom  : ',cd:5:2,' %');
readln;
end.