Помогите найти ошибку( программа должна выводить минимальное число кратное 3, а она выводит первое из последовательности )

Необходимо перед вводом элементов последовательности ввести значение переменной n; Readln(min) убрать (а можно написать Readln(n)).