uses crt;

var

        poziom,wysokosc,i,j,ilosc,krazek,wymiar,k:integer;

        rurka:array[1..99] of integer;
        krazki:array[1..99] of integer;

procedure wczytaj;

begin

        writeln('Podaj wysokosc rurki');
        readln(wysokosc);

        writeln('podaj ilosc krazkow');
        readln(ilosc);

        if wysokosc > ilosc then

                begin

                        writeln('podaj wymiary rurki');

                for i:=1 to wysokosc do

                        begin

                                readln(wymiar);

                                rurka[i] := wymiar;

                        end;

                writeln('podaj rozmiar krazkow');


                for i:=1 to ilosc do

                        begin

                                readln(krazek);
                                krazki[i] := krazek;

                        end;

        end

        else

                begin

                        writeln('Za mala rurka na tyle krazkow');

                end;


end;


procedure sprawdz;

begin
        j:=0;
        poziom:=wysokosc;


                for i:=1 to ilosc do

                        begin

                                repeat


                                        if j<poziom then

                                                begin

                                                        inc(j);


                                                end;




                                        if krazki[i] > rurka[j] then

                                                begin

                                                        poziom:=j;
                                                        rurka[j]:=0;

                                                                if (rurka[j]=0) and (j>1) then

                                                                        begin

                                                                                rurka[j-1]:=0;


                                                                        end;

                                                end;






                                 until j=poziom;

                                 j:=0;



                        end;





end;

procedure final;

begin


        if poziom <=1 then

                begin
                        writeln('zaden krazek sie nie zmiescil');
                end;



        if (poziom > 1) and (wysokosc > ilosc) then

                begin
                        writeln('krazek zatrzymal sie na poziomie ',poziom-1);

                end;
end;







begin
        clrscr;
        wczytaj;
        sprawdz;
        final;

        readln;
        readln;


end.