Векторы. Определение существования в векторе элементов с одним свойством - Pascal

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

Помогите с этой задачкой: Проверить если все элементы вектора S(n) целых чисел, являются парными.

Решение задачи: «Векторы. Определение существования в векторе элементов с одним свойством»

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

const
  n = 10;
 
var
  i: integer;
  a: array [1..n] of integer;
  yes: boolean;
 
begin
  for i := 1 to n do
  begin
    a[i] := random(n) + 1;
    write(a[i]:4);
  end;
  yes := true;
  for i := 1 to n do
    if odd(a[i]) then
    begin
      yes := false;
      break;
    end;
  writeln;
  writeln(yes);
end.

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

Объявляются константа n равная 10 и переменные i, a и yes типа integer и boolean соответственно.
В цикле for заполняется массив a случайными целыми числами от 1 до n.
В каждой итерации цикла for выводится значение элемента массива a[i] с помощью write(a[i]:4).
После заполнения массива a переменной yes присваивается значение true.
В цикле for проверяется каждый элемент массива a на чётность с помощью функции odd().
Если элемент чётный, то переменной yes присваивается значение false и цикл прерывается с помощью оператора break.
После проверки всех элементов массива выводится значение переменной yes с помощью writeln(yes).