Ввести массив A(N). Найти максимальный элемент массива, произведение нечетных элементов массива. Заменить максимум на произведение. Вывести полученный массив и произведение.

var   a:array of integer;   i,b,c,max:integer; BEGIN   write('Введите размер массива - ');   readln(c);   setlength(a,c);   writeln('Введите элементы массива - ');   max:=0;   b:=1;   for i:=0 to c-1 do begin     read(a[i]);     if a[i] > a[max] then max:=i;     if a[i] mod 2 <> 0 then b:=b*a[i];       end;   a[max]:=b;   for i:=0 to c-1 do write(a[i]:3); END.