Tavo vietoj, daryciau su papildomu masyvu, t.y sukti cikla per visas stoteles, tada ikisti vidini cikla skaityti marsruto numeri kaip masyvo eiles numeri, o masyvo reiksme prideti +1 kas kart, kai numeris sutampa. Tai atrodytu mazdaug taip: For i:=1 to k(stotys) do begin x(bet koks kintamasis):=0; Read(F, x); for j:= 1 to x do begin Read(F-failas, m(marsruto numeris)); B[m]:=B[m]+1; end; Readln(F-failas); end; O didziausia reiksme patarciau rikiavimo budu surasti. Tikiuosi kazkiek padejau.