Найти наименьший нечетный элемент в одномерном массиве - Turbo Pascal

Формулировка задачи:

Вот что у меня получилось Где ошибка?Или она совсем не правильная?

var a:array [1..100] of integer;
min,i,n,s:integer;
begin
read(n);
s:=0;
for i:=1 to n do readln(n);
for i:=1 to n do begin
s:=a[i] mod 2;
if s=0 then min:=i;
end;
for i:=1 to n do begin
s:=a[i] mod 2;
if s=0 then begin if a[i]<min then min:=i; end;
end;
write(a[min]);
end.

Решение задачи: «Найти наименьший нечетный элемент в одномерном массиве»

Листинг программы

var a:array [1..100] of integer;
    min,i,n,s:integer;
begin
write('Введите размер массива от 1 до 100 n=');
readln(n);
writeln('Введите элементы массива, целые числа');
for i:=1 to n do readln(a[i]);
min:=0;
for i:=1 to n do
if odd(a[i])then
 begin
  if min=0 then min:=a[i]
  else if a[i]<min then min:=a[i];
 end;
if min=0 then write('Нечетных элементов нет')
else write('Минимальный нечетный=',min);
end.

Объяснение кода листинга программы

Создается переменная a типа array с диапазоном от 1 до 100 и 100 элементами типа integer.
Задаются четыре переменные: min, i, n, s типа integer.
Выводится сообщение для ввода размера массива от 1 до 100.
Считывается размер массива от пользователя.
Выводится сообщение для ввода элементов массива, целых чисел.
В цикле от 1 до n считываются элементы массива от пользователя.
Переменная min инициализируется значением 0.
В цикле от 1 до n проверяется каждый элемент массива a[i].
Если элемент a[i] нечетный, то проверяется условие: если min равно 0, то присваивается значение a[i] переменной min, иначе если a[i] меньше min, то присваивается значение a[i] переменной min.
Если min равно 0, выводится сообщение Нечетных элементов нет.
Иначе выводится сообщение Минимальный нечетный=, значение переменной min.
Цикл завершается.