Найти минимальное число с нечётным индексом - Pascal

Формулировка задачи:

Привет! Ребята, нужна помощь, посмотрите, пожалуйста, верно ли я написал код программы к задаче. Задача: Даны натуральное число n, действительные числа a1,a2,…,an. Получить: min(A1,A3...) Код программы:

                    Листинг программы
                
 
                        
                          
                    
program Z823g;
 
{$APPTYPE CONSOLE}
 
var
 A:array[1..10] of Real;
 I,N:Integer;
 Min:Real;
begin
 Write('Vvedite N= ');
 Readln(N);
 for I:=1 to N do
   begin
     Write('Vvedite A',I,'= ');
     Readln(A[I]);
   end;
 Min:=A[1];
 for I:=2 to N do
   if I mod 2 <> 0 then
     if A[I] < Min then
       Min:=A[I];
 Writeln(Min:10:10);
 Readln;
 
end.

Благодарю за помощь!

Решение задачи: «Найти минимальное число с нечётным индексом»

Листинг программы

var
  n, I: Integer;
  t, m: Real;
begin
  Write('n: '); Read(n);
  Read(m);
  for i:=2 to n do begin
    Read(t); if Odd(i) and (m>t) then m:=t;
  end;
  WriteLn(m);
end.

Объяснение кода листинга программы

Создается переменная n для хранения целого числа.
Создается переменная I для хранения целого числа.
Создается переменная t для хранения вещественного числа.
Создается переменная m для хранения вещественного числа.
Запрашивается у пользователя ввод значения n с помощью функции Write('n: '); Read(n);
Пользователь вводит значение m с помощью Read(m);
Начинается цикл от 2 до n с помощью for i:=2 to n do begin
Пользователь вводит значение t с помощью Read(t);
Проверяется, является ли значение i нечетным с помощью функции Odd(i), и если значение m больше значения t, то значение m заменяется на значение t с помощью (m>t) then m:=t;
Выводится значение m с помощью WriteLn(m). Этот код находит минимальное число с нечетным индексом из последовательности чисел, введенной пользователем, и выводит его на экран.