Все элементы с четными индексами, предшествующие первому экстремальному в массиве, умножить на 2

{Ввести одномерный массив вещественных чисел A(N).
Все элементы с четными индексами, предшествующие первому встретившемуся
экстремальному элементу в массиве (максимуму или минимуму), умножить на 2
и записать в
новый массив B. Выдать на печать массивы A и B.}
const
  n_max=100;
var
  a,b:array[1..n_max] of real;
  imax,imin,i,n:integer;
  max,min:real;
  kn,k,kextr:integer;
begin
  write('Введите размерность массива:');  readln(n);
  writeln('Массив A:');
  for i:=1 to n do
    begin
      a[i]:=random*n_max - n_max div 2;
      write(a[i]:8:2);
    end;
  writeln;
  max:=a[1];  min:=a[1];
  imax:=1;    imin:=1;
  for i:=2 to n do
    begin
      if a[i]>max then
        begin
          max:=a[i];
          imax:=i;
        end;
      if a[i]<min then
        begin
          min:=a[i];
          imin:=i;
        end;
    end;
  writeln('Max: ',max:8:2,' в позиции: ',imax);
  writeln('Min: ',min:8:2,' в позиции: ',imin);
  if imax<=imin then
    kextr:= imax
  else
    kextr:= imin;
  k:=0;
  for i:=1 to kextr do
    if not odd(i) then
      begin
        inc(k);
        b[k]:=a[i]*2;
      end;
  kn:=k-1;
  writeln('Массив B:');
  for i:=1 to kn do
    write(b[i]:8:2);
  readln;
end.

{$reference System.Core.dll}
uses System.Linq;
 
begin
  var a := ReadString().Split('  '.ToCharArray()).Select((st : string) -> integer.Parse(st)).ToArray(); 
  var b := System.Array.ConvertAll(
    a.Take(Min(a.ToList().IndexOf(a.Min()), a.ToList().IndexOf(a.Max()))).
    Where((value : integer, index : integer) -> Odd(index)).ToArray(), (i : integer) -> i * 2);
    
  writeln('Массив a: ', string.Join(' ', System.Array.ConvertAll(a, (i : integer) -> IntToStr(i))));
  writeln('Массив b: ', string.Join(' ', System.Array.ConvertAll(b, (i : integer) -> IntToStr(i))));
end.

1 2 3 4 5 6 7 8 0 12
Массив a: 1 2 3 4 5 6 7 8 0 12
Массив b: 4 8 12 16