Очередь- как разобраться!!!!!

 uses Crt;
 type Alfa= INTEGER; 
   PComp= ^Comp;
   Comp=record
          sD:Alfa;
          pNext:PComp
        end;
 var pBegin1, pEnd1,pBegin2, pEnd2,pBegin3, pEnd3,pBegin4, pEnd4: PComp;
     O1, O2,O3,O4: Alfa; I,J,K,L,kol: INTEGER;
 
 Procedure CreateQueue(var pBegin,pEnd: PComp; var sC: Alfa);
 begin
   New(pBegin);
   pBegin^.pNext:=NIL;
   pBegin^.sD:=sC;
   pEnd:=pBegin
 end;
 
 Procedure AddQueue(var pEnd:PComp; var sC:Alfa);
   var pAux: PComp;
 begin
   New(pAux);
   pAux^.pNext:=NIL;
   pEnd^.pNext:=pAux;
   pEnd:=pAux;
   pEnd^.sD:=sC
 end;
 Procedure DelQueue(var pBegin: PComp; var sC: Alfa);
 begin
   sC:=pBegin^.sD;
   pBegin:=pBegin^.pNext
 end;
 
{procedure ravno(var x1,x2:alfa);
begin
while x2<>nil do
begin
if x2^.sd=x1^.sd then
begin
x1:= x1^.pNext;
x2:= x2^.pNext;
if x1=nil then write (x1,' ne ravno  ', x2)
else x2:=x2^.sd
end
end;   }
 
 begin
 clrscr;
 I:=0; J:=0; K:=0;  L:=0; kol:=0 ;
 writeln(' VVEDIE STROKU OCHEREDI '); readln(O1);
 CreateQueue(pBegin1,pend1,O1);
 repeat
 writeln(' VVEDIE STROKU OCHEREDI ');
 readln(O1);
 AddQueue(pEnd1,O1);
 INC(i)
 until O1=0;
 writeln('******************************** ');
 writeln(' VVEDIE STROKU OCHEREDI '); readln(O2);
 CreateQueue(pBegin2,pend2,O2);
 repeat
 writeln(' VVEDIE STROKU OCHEREDI ');
 readln(O2);
 AddQueue(pEnd2,O2) ;
 INC(J)
 until O2=0;
 writeln('******************************** ');
 writeln(' VVEDIE STROKU OCHEREDI '); readln(O3);
 CreateQueue(pBegin3,pend3,O3);
 repeat
 writeln(' VVEDIE STROKU OCHEREDI ');
 readln(O3);
 AddQueue(pEnd3,O3);
 INC(K)
 until O3=0;
 writeln('******************************** ');
 writeln(' VVEDIE STROKU OCHEREDI '); readln(O4);
 CreateQueue(pBegin4,pend4,O4);
 repeat
 writeln(' VVEDIE STROKU OCHEREDI ');
 readln(O4);
 AddQueue(pEnd4,O4) ;
 INC(L)
 until O4=0;
 writeln(' -----OCHERED 1 -----');
 repeat
 DelQueue(pBegin1,O1);
 writeln(O1);
 until pBegin1=NIL ;
 writeln(' -----OCHERED 2 -----');
 repeat
 DelQueue(pBegin2,O2);
 writeln(O2);
 until pBegin2=NIL ;
 writeln(' -----OCHERED 3 -----');
 repeat
 DelQueue(pBegin3,O3);
 writeln(O3);
 until pBegin3=NIL ;
 writeln(' -----OCHERED 4 -----');
 repeat
 DelQueue(pBegin4,O4);
 writeln(O4);
 until pBegin4=NIL ;
    if (i<>j) and (i<>k) and (i<>l) and (j<>k)
    and (j<>l) and (k<>l) then writeln ('net odinakovyh ocheredej')
    else
 
 
 
   READLN
end.