Не выполняет удаление слова с буков Р

не проходит только по условию: Метод fix должен удалять из списка строк все слова, содержащие букву "р". Исключение: слова содержащие и букву "р" и букву "л" - их нужно оставить. Почему не удаляется слово, когда буква Р в середине(Слово "мера" не удаляется)?

package com.javarush.task.task07.task0716;

import java.util.ArrayList;

/*
Р или Л
*/

public class Solution {
    public static void main(String[] args) throws Exception {
        ArrayList<String> list = new ArrayList<String>();
        list.add("роза"); // 0удалить
        list.add("мера"); // 1удалить
        list.add("лоза"); // 2удвоить
        list.add("лира"); // 2ничего
        list.add("вода"); // 2ничего
        list.add("упор"); // 2удалить
        list = fix(list);

        for (String s : list) {
            System.out.println(s);
        }
    }

    public static ArrayList<String> fix(ArrayList<String> list) {

        for (int i = 0; i < list.size(); i++) {
            if(list.get(i).contains("р") && !(list.get(i).contains("л"))){
                list.remove(i);

            }
        }
        for (int i = 0; i < list.size();) {
            if(list.get(i).contains("л") && !(list.get(i).contains("р"))){
                list.add(i,list.get(i));


                i+=2;
            }else i++;
        }

        return list;
    }
}