Одномерный массив

[Gaia]

Доброго времени суток. Не могли ли бы вы помочь пожалуйста разобраться с заданием.
Вот собственно задание.

Дана последовательность не более 20 ненулевых целых чисел,
последним числом в последовательности является 0. Ввести эту
последовательность в одномерный массив и вычислить хаpактеристики
последовательности согласно указанному варианту (использование
дополнительных массивов запрещено).

1.Определить порядковые номера тpех наименьших нечетных
элементов и их произведение.

Вот, то, что я написала.

program lab5;
Var n,i,k,max:integer;
l,j:byte;
a:array [1..20] of integer;
Begin
Writeln ('vvedite posled. chisel');
i:=0;
Repeat
i:=i+1;
until a[i]=0;
n:=i;
max:=a[i];
For i:=1 to n do
if a[i]>max then
max:=a[i];
k:=i;
writeln;
readln (a[i]);
end;
for j:=i+1 to n do
for l:=j+1 to n do
end;
Begin
if a[i]*a[j]*a[l]>max then
max:=a[i]*a[j]*a[l];
end;
writeln (naim.proizved=',max);
End.

Здесь безусловно есть ошибки, подскажите их.

[Don Karleone]

1)
Ввод последовательности:
repeat
i:=i+1;
until a[i] = 0;
а где оператор readln(a[i]);
должно быть:
i:=1;
repeat
readln(a[i]);
i:=i+1;
until a[i] = 0;

2)
Определить порядковые номера 3-х наименьших нечетных элементов.
i:=1;
flag:=false;
while not flag and (a[i] <> 0) do
begin
if odd(a[i])
then
begin
flag:=true;
Min:=i;
end;
Inc(i);
end;

Находим индеск минимального нечетного элемента:

i:=Min;
while a[i] <> 0 do
begin
Inc(i);
if (odd(a[i])) and (a[i] < a[Min]) then Min:=i;
end;
One:=Min; {индекс первого минимального нечетного элемента}

i:=1;
flag:=false;
while not flag and (a[i] <> 0) do
begin
if odd(a[i]) and (i <> One)
then
begin
flag:=true;
Min:=i;
end;
Inc(i);
end;
i:=Min;
while a[i] <> 0 do
begin
Inc(i);
if (odd(a[i])) and (a[i] < a[Min]) and (i <> One) then Min:=i;
end;
Two:=Min; {индекс второго минимального нечетного элемента}

i:=1;
flag:=false;
while not flag and (a[i] <> 0) do
begin
if odd(a[i]) and (i <> One) and (i <> Two)
then
begin
flag:=true;
Min:=i;
end;
Inc(i);
end;
i:=Min;
while a[i] <> 0 do
begin
Inc(i);
if (odd(a[i])) and (a[i] < a[Min]) and (i <> One) and (i<>Two) then Min:=i;
end;
Tree:=Min; {индекс третьего минимального нечетного элемента}

Вроде должно быть так
Произведение этих элементов найдешь сам.

[Ol'ga_new]

А ещё при вводе последовательности условием выхода из цикла должно являться раванство количества элиментов 20(по условию задачи), кроме равенства 0 самих элиментов.