Ввести массив 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.