Найти произведение элементов, стоящих перед минимальным элементом массива

const
  Sz = 100;
var
  a: array [1..Sz] of real;
  b: array [1..Sz] of real;
  i,N: integer;
  K,P,min: real;
  minind: integer;
begin
  N := 20;
  for i:=1 to N do
    a[i] := Random(100);
  writeln('Элементы массива: ');
  for i:=1 to N do
    write(a[i],' ');
  writeln;
 
  min := a[1];
  minind := 1;
  for i:=2 to N do
    if a[i]<min then
    begin
      min := a[i];
      minind := i;
    end;
 
  K := 0;
  for  i:=1 to N do
    if (Round(a[i])) mod 2 = 1 then
K :=K+1;
begin
end;
end.

const
  Sz = 100;
var
  a: array [1..Sz] of integer;//изменил на integer (четные и нечетные - целые)
  i,N: integer;
  K,P,min,k_i,s: integer;
  minind: integer;
begin
  write('Введите размер массива N: ');
  readln(n);
  for i:=1 to N do
    a[i] := Random(5)+1; //изменил, чтобы произведение не было астрономическим
                         //и чтобы не было 0 (обнулит произведение)
  writeln('Элементы массива: ');
  for i:=1 to N do
    write(a[i],' ');
  writeln;
 
  min := a[1];
  minind := 1;
  for i:=2 to N do
    if a[i]<min then
    begin
      min := a[i];
      minind := i;
    end;
  writeln('Минимальное число = ',min,' [',minind,']');
 
  K := 0; k_i:=0;
  for  i:=1 to N do
  begin
    if (a[i]) mod 2 = 1 then K :=K+1;
    if k=3 then k_i:=i; //индекс третьего нечетного элемента
  end;
  writeln('3-й нечетный элемент: ',a[k_i],' [',k_i,']');
  
  s:=1;  //произведение элементов до минимального
  if k=0 then writeln('Преобразование невозможно.') else
  begin
      for i:=1 to minind-1 do s:=s*a[i];
    a[k_i]:=s;
    writeln('Произведение до минимального = ',s);
  
    writeln('Преобразованный массив:');
    for i:=1 to n do write(a[i],' ');
  end;
end.