IF OSTSRODAMIES <= DATA_EWIDENCJI THEN
       FOR I IN 1..KOTY.COUNT
       LOOP
           FOR J IN 1..KOTY(I).MYSZY
            LOOP
            MYSZYTAB(INDMYSZYPRZYDZ).ZJADACZ := KOTY(I).PSEUDO;
            INDMYSZYPRZYDZ:=INDMYSZYPRZYDZ+1;
            END LOOP;
        END LOOP;