Подсчитать количество четных элементов в динамическом массиве - Free Pascal

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

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

                    Листинг программы
                
 
                        
                          
                    
uses crt;
type arrr = array[1..1000] of integer;
var
  a: ^arrr;
  n,i,k:integer;
  sr:real;
begin
clrscr;
repeat
  write('Введите количество элементов n>0 Ё n<=1000: '); readln(n);
  until (n>0) and (n<=1000);
  getmem(a,n*sizeof(integer));
  writeln('Введите элементы:');
  for i:=1 to n do
    begin
    readln(a^[i]);
      sr:=sr+a^[i];
    end;

......??

Решение задачи: «Подсчитать количество четных элементов в динамическом массиве»

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

program dynarray;
 
uses
  crt;
var
  a: array of integer;
  n,i,k:integer;
begin
  clrscr;
  repeat
    write('Введите количество элементов n>0 Ё n<=1000: ');
    readln(n);
  until (n>0) and (n<=1000);
  SetLength(a,n);
  k:=0;
  writeln('Введите элементы:');
  for i:=0 to n-1 do
    begin
      readln(a[i]);
      if not odd(a[i]) then
        inc(k);
    end;
  writeln('Количество четных элементов: ',k);
  readln;
  SetLength(a,0)
end.

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

Объявление переменных:
- a: массив целых чисел;
- n, i, k: целочисленные переменные.
Цикл, который повторяется до тех пор, пока пользователь не введет число от 1 до 1000.
Установка длины массива a равной введенному значению n.
Установка значения k равным 0.
Цикл, который считывает элементы массива a и проверяет, является ли каждый элемент четным числом. Если это так, значение k увеличивается на 1.
Вывод количества четных элементов массива a.
Ввод для завершения работы программы.
Установка длины массива a равной 0 для освобождения памяти.