Заполнить массив случайными числами и отобрать в другой массив все чётные отрицательные числа - Pascal ABC

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

Заполнить массив случайными числами в интервале [-10, 10] и отобрать в другой массив все чётные отрицательные числа.

Решение задачи: «Заполнить массив случайными числами и отобрать в другой массив все чётные отрицательные числа»

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

uses Crt;
const k = 15;
var a, b : array[1..k] of integer;
    n, m : integer;
begin
  ClrScr;
  Randomize;
  m:=0;
  for n:=1 to k do
  begin
    a[n]:=Random(21) - 10;
    write(a[n]:4);
    if (a[n]<0) and not Odd(a[n]) then
    begin
      inc(m); b[m]:=a[n];
    end;
  end;
  writeLn;
  for n:=1 to m do
    write(b[n]:4);
  readLn;
end.

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

В первой строке кода используется библиотека Crt, которая предоставляет функции для работы с памятью и строками.
Константа k определяет размер массива a, который будет заполнен случайными числами.
Переменная a представляет собой массив из k элементов типа integer.
Переменная n используется для итерации по элементам массива a.
Переменная m инициализируется значением 0. Она будет использоваться для отслеживания количества выбранных чисел.
Цикл for n:=1 до k do начинается с n=1 и продолжается до n=k. На каждой итерации значение n увеличивается на 1.
Внутри цикла переменная a[n] присваивается случайное число от -10 до 10 (включительно) с помощью функции Random(21) - 10;. Это число затем записывается в стандартный вывод.
Затем проверяется, является ли число четным и отрицательным. Если это так, то оно добавляется в массив b.
Цикл for n:=1 до m do начинается после того, как было выбрано первое число. Он продолжается до тех пор, пока не будет выбрано еще одно число.
На каждой итерации цикла значение b[m] присваивается значению a[n].
После завершения всех итераций цикла выводится массив b.
Затем читается строка с помощью функции readLn.
Код завершается после чтения строки.