Решите пожалуйсто!!! сам не могу!!!

[Artom]

Дан текстовый файл. Найти произведение нечётных чисел в файле???

[Gongled]

Мой вариант.

program lab1;
uses CRT;
var
s, s_sum : string;
i, n_sum, pr, err : integer;
input : text;
begin
clrscr;
assign(input,'C:\input.txt');
reset(input);

pr := 1;

while not eof(input) do
begin
     readln(input,s);
     for i:=1 to length(s) do
     begin
          if s[i] in ['0'..'9'] then
          begin
          s_sum := '';
               while s[i] in ['0'..'9'] do
               begin
                    s_sum := s_sum + s[i];
                    inc(i);
               end;
               val(s_sum,n_sum,err);
               if (n_sum mod 2 = 1) then pr := pr * n_sum;
          end;
     end;
end;

close(input);

write('Ответ: ',pr);

end.

P.S. Я так понимаю, числа могут быть перемешаны с другими символами.
Пример входного файла:

asdasd123adadas456asdasdas3

[DM_bite]

Program Xd;
var Fil:text;
i,pr: integer;
begin
pr:= 1;
assign(Fil, 'text.txt');
reset(Fil);
while not eof(Fil) do
begin
ReadLn(Fil, i);
if not (i mod 2 = 0) then pr:= pr*i;
end;
CloseFile(Fil);
WriteLn(pr);
ReadLn;
end.

[Artom]

Спасибо!!!!!!!!!!!!!