Здравствуйте, Dima Moroz Maksovovich.

В приложении программа выполняющая задание.
Разделителем элементов последовательности являются: запятая и конец строки.
Элемент последовательности, записанные по разному, к примеру 123=1 2 3=12 3=1 23=1-2 3 и т.д. считаются одинаковым.
Проверялось на таких данных:

1,1 2 3,15
1-53 , 152,
1=2=3=1,
45

Проверка условия c=chr(13) равнозначна вызову функции SeekEoln, с той лиш разницей, что код прочитаного символа является признаком конца строки в файле.
Удачи!

Приложение:
var
Result:real;
Current:integer;{текущее значение последовательности}
MaxNumber:integer;{значение максимального элемента последовательности}
IndexNumber:integer;{позиция элемента в последовательности}
Index:integer;{текущая позиция}
isFile:text;{последняя найденая цифра последовательности}
LastNumber:byte;
c:char;
begin
assign(isFile,'q173803.dat');
reset(isFile);
Result:=1;
Index:=0;
MaxNumber:=0;
While not Eof(isFile)do
begin
Current:=0;{сбрасываем число}
LastNumber:=0;{сбрасываем последнюю цифру}
repeat
read(isFile,c);{считываем символ}
if c in ['0'..'9'] then
begin
LastNumber:=ord(c)-ord('0');{переводим в цифру}
Current:=10*Current+LastNumber;{добавляем в текущий элемент}
end;
{служебная строка показывающая как формируется элемент последовательности}
{ writeln('=',Current,c:3);}
until (c=',')or(c=chr(13))or eof(isFile);{продолжаем пока не запятая или конец строки}
if Current>0 then
begin
Index:=Index+1;{увеличиваем индекс если найден очередной элемент последовательности}
writeln('A[',index,']:=',Current);{вывод текущего элемента последовательности}
end;
if odd(LastNumber) then{проверяем нечетное число}
begin
Result:=Result*Current;{произведение- первое условие задания}
if Current>MaxNumber then
begin
MaxNumber:=Current;{запоминаем максимум - второе условие задачи}
IndexNumber:=Index;{запоминаем позицию - третье условие задачи}
end;
end;
end;
close(isFile);
{вывод результатов работы}
Writeln('Product :',Result:10:0);
Write('Max number:=A[',IndexNumber,']:=',MaxNumber);
readln;
end.