Pascal. Определение числа закрашенных отрезков. (без рисования)

Program gg;
Var
        L:array [-100..100] of integer; {koordinata nachala otrezka}
        R:array [-100..100] of integer; {koordinati end'a otrezka}
        n, i, chist, dirty, Sdirty :integer;
    in_file, out_file :text;

BEGIN
chist:=0; { Zakrashennye 1 raz }
dirty:=0; { Zakrashennye 2 raza }
Sdirty:=0; { Zakrashennye n raz }


{Vvod massiva s koordinatami}
   Assign(in_file,'C:\cover.in');
   Reset(in_file);
    ReadLn(in_file,n);
        For i:=1 to n do
                 ReadLn(in_file, L,R);

   Close(in_file);

{End of the block}

{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

{Block poiska chistih elementov}
       For i:=1 to n do
                 if (L<L[i+1])OR((R[i+1]<R)Or(R<L[i+1]))and(R>R[i-1]) then chist:=chist+1;
{end of the block}

{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

{blok poiska grajznih elementov}

        For i:=1 to n do
                 If (L[i+1]<R)AND(L[i+1]>L) then dirty:=dirty+1;

{end of the block}

{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

{ Blok poiska n zakrashennyh elementov }

        For i:=2 to n do
                if (L>L[i-1])AND(R>L[i+1])and(R[i+1]>R) then Sdirty:=sdirty+1;

{end of the block}

{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
Assign(out_file,'C:\cover.out');
Rewrite(out_file);
        WriteLn (out_file,'dirty=',dirty);
        WriteLn (out_file,'chist=',chist);
        WriteLn (out_file,'Sdirty=',Sdirty);
Close(out_file);
ReadLn();
END.