Eljárás Szétválogatás(N,Járatok,ÜresDb,Üresek,ZsúfoltDb,Zsúfoltak,EgyébDb,Egyebek) ÜresDb:=0; ZsúfoltDb:=0; EgyébDb:=0 Ciklus i=1..N Elágazás Üres_e(Járatok[i]) esetén ÜresDb:=ÜresDb+1 ; Üresek[ÜresDb]:=i Zsúfolt_e(Járatok[i]) esetén ZsúfoltDb:=ZsúfoltDb+1; Zsúfoltak[ZsúfoltDb]:=i egyébként EgyébDb:=EgyébDb+1; Egyebek[EgyébDb]:=i Elágazás vége Ciklus vége Eljárás vége