if isRequiredSubscriber(SourceFile, TelephoneNumberArray,
                        SurnameArray, NameArray, PatromynicArray, CityArray, RequiredSubscriber) then
              begin
                  IsExist := true;
                  SameSubscriberIndex := Number;
              end;

if isExist(RequiredSubscriber, SameSubscriberIndex)
        and (not(SubscriberIndex = SameSubscriberIndex)) then
        SubscriberExistsLabel.Visible := true