Для динамического массива подсчитать количество его отрицательных элементов с четным порядковым номером - Free Pascal

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

Для динамического массива подсчитать количество его отрицательных элементов с четным порядковым номером.

Решение задачи: «Для динамического массива подсчитать количество его отрицательных элементов с четным порядковым номером»

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

uses crt;
var a:array of integer;
    n,i,k:integer;
begin
clrscr;
randomize;
write('Размер массива n=');
readln(n);
setlength(a,n);
for i:=0 to n-1 do
 begin
  a[i]:=-10+random(21);
  write(a[i]:4);
 end;
writeln;
k:=0;
for i:=1 to n-1 do
if (a[i]<0)and odd(i) then k:=k+1;
write('Количество отрицательных элементов с четными номерами=',k);
readln
end.

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

Установка начального размера массива n.
Инициализация массива a случайными отрицательными числами.
Вывод на экран содержимого массива a.
Инициализация переменной k для подсчета количества отрицательных элементов с четными порядковыми номерами.
Цикл по индексам массива a.
Проверка условия для подсчета отрицательных элементов с четными порядковыми номерами.
Увеличение переменной k на единицу при выполнении условия.
Вывод на экран количества отрицательных элементов с четными порядковыми номерами.
Ожидание ввода пользователем для завершения программы.