Найти произведение элементов одномерного массива с четными индексами

const
  k = 24; //размер массива
 
var
  A: array[1..k] of integer; // <--- массив
  M: longint; //произведение
  i: integer; //для цикла
  c: char; //опции
 
begin
  //if (k<4) or (k>25) then begin writeln('k = 4..25');exit end;
  randomize;
  
  repeat
    M := 0;
    writeln('------------------------------------------------');
    Writeln('1- Заполнить автоматически, 2- Вручную, 0- ВЫХОД');
    writeln('------------------------------------------------');
    readln(c);
    if (c = '1') or (c = '2') then begin
      for i := 1 to k do if c = '1' then begin A[i] := 1 + random(9); write(A[i]:4)end else repeat write('A[', i, ']= '); readln(A[i])until A[i] <> 0;
    
    writeln; writeln('------------');
    
    M := A[2];
    i := 4;
 
    while i <= K do
    begin
      write(M, ' x ', A[i], ' = ');
      M := M * A[i];
      writeln(M);
      inc(i, 2); //следующее чётное
    end;
    
    writeln; writeln('M=', M);
   end;//for 
  until (c = '0');
 
  writeln('Усё.')
end.