Дан целочисленный вектор А(и). Найти наибольшее из нечетных чисел входящих в вектор. Определить его индекс и поменять

program Zadanie86;
var
  a: array[1..50] of integer; // Переменная для хранения массива.
  i: integer;   //    Промежуточная переменная для организации циклов.
  buf: integer;  //  Промежуточная переменная для организации обмена значениями.
  n: integer;  //  Переменная для хранения значения количества элементов массива.
  maxnechet: integer;  //  Переменная для поиска элемента с максимальным значением среди нечетных элементов.
  max: integer;   //  Переменная для поиска элемента с максимальным значением среди всех элементов.
  indmaxnechet: integer;  // Переменная для хранения индекса найденного элемента с максимальным значением среди нечетных.
  indmax: integer;  // Переменная для хранения индекса найденного элемента с максимальным значением среди всех элементов.
  reg: boolean;   // Переменная для организации правильного вывода ответа.
begin
randomize;
writeln('Введите количество элементов массива:');
Readln(n);
for i:= 1 to  n do
  begin
  writeln('Введите значение ',i,' элемента:');
  Readln(a[i]);   // Заполнение массива в ручном режиме.
  end;
writeln('Исходный массив:');
for i:= 1 to  n do
 write(a[i],'  ');    // Вывод исходного массива на экран.
 
maxnechet:= -2147483347;
max:= -2147483347;
indmaxnechet:= 0;
indmax:= 0;
for i:= 1 to n do
 begin
  if (odd (a[i])) and  (a[i] > max) then   // Условие поиска нечетных элементов с максимальным значением.
     begin
     maxnechet:= a[i];
     indmaxnechet:= i;   // Индекс найденного нечетного элемента с максимальным значением.
     end;
  if a[i] > max then   // Условие поиска элементов с максимальным значением.
     begin
     max:= a[i];
     indmax:= i;   // Индекс найденного элемента с максимальным значением.
     end;
  end;
writeln;
writeln('Элемент с максимальным значением среди всех элементов: ',max);
writeln('Индекс элемента с максимальным значением среди всех элементов: ',indmax);
 
if indmaxnechet = 0 then
   begin
   writeln('Элементов с нечетным значением не найдено.');
   reg:= true;
   end
else
 begin
   writeln('Элемент с максимальным значением среди нечетных элементов: ',maxnechet);
   writeln('Индекс элемента с максимальным значением среди нечетных элементов: ',indmaxnechet);
 end;
 
if reg then
   writeln('Выполнить задание невозможно.')
else
   begin
    buf:= a[indmax];    // Обмен местами элементов с максимальным значением и максимальным значением среди нечетных.
    a[indmax]:=a[indmaxnechet];
    a[indmaxnechet]:= buf;
    writeln('Преобразованный массив:');
    for i:= 1 to  n do
       write(a[i],'  ');    // Вывод преобразованного массива на экран.
    end;
Readln;
end.