Расположить элементы массива в указанном порядке

for i:=1 to n do
 if odd(a[i]) then
  begin
   k:=i;
   break;
  end;

for i:=n downto 1 do
 if odd(a[i]) then
  begin
   j:=i;
   break;
  end;

var a:array[1..100] of integer;
    n,i,i1,ip,k,x:integer;
begin
repeat
write('Введите размер массива от 3 до 100 n=');
readLn(n);
until n in [3..100];
randomize;
writeln('Исходный массив');
i1:=0;
for i:=1 to n do
 begin
  a[i]:=10+random(80);
  if odd(a[i]) then
  if i1=0 then i1:=i
  else ip:=i;
  write(a[i]:4);
 end;
writeln;
if i1=0 then writeln('В массиве нет нечетных элементов')
else
 begin
  writeln('Первый нечетный a[',i1,']=',a[i1]);
  if ip=0 then writeln('В массиве нет двух нечетных элементов')
  else
   begin
    writeln('Последний нечетный a[',ip,']=',a[ip]);
    k:=(ip-i1)div 2;
    for i:=1 to k do
     begin
      x:=a[i1+i-1];
      a[i1+i-1]:=a[ip-i+1];
      a[ip-i+1]:=x;
     end;
    writeln('Элементы между первым и последним нечетными в обратном порядке');
    for i:=1 to n do
    write(a[i]:4);
   end;
 end;
end.