Массив В заполнить теми значениями массива А, которые больше, чем зна-чение элемента А23 - Pascal ABC

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

Доброго времени суток, нужно организовать массив, но я не знаю как это сделать, помогите.) в общем суть такова. Организовать в оперативной памяти два массива А и В размера N для хранения целых чисел. Массив А заполнить случайными числами из диапазона от К1 до К2. Массив В заполнить значе- ниями в соответствии с заданием Вашего варианта. Используя режим CRT отобразить оба массива на экране с пояснениями и выделением цветом. N=25, К1=3, К2=9. Массив В заполнить теми значениями массива А, которые больше, чем зна- чение элемента А23

Решение задачи: «Массив В заполнить теми значениями массива А, которые больше, чем зна-чение элемента А23»

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

uses crt;
const n=25; K1=3; K2=9;
var a:array[1..n] of integer;
    b:array[1..n] of integer;
    i,j,temp:integer;
BEGIN
for i:=1 to n do a[i]:=Round((K2-K1)*(Random)+K1);
TextColor(Blue); writeln('Vector A');
for i:=1 to n do write(a[i]:3);
writeln; TextColor(Red);
writeln('Vector B');
j:=1;
for i:=1 to n do
  if A[i]>A[23]
    then
      begin
        B[j]:=A[i];
        temp:=j;
        Inc(j)
      end;
for i:=1 to temp do write(b[i]:3);
END.

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

Этот код написан на языке Pascal ABC и выполняет следующие действия:

Создает два массива: a и b. Оба массива имеют размерность от 1 до 25.
Заполняет массив a случайными числами, используя формулу (K2-K1)*(Random)+K1, где K1 и K2 - константы, определенные в начале кода.
Выводит на экран вектор A с помощью функции write, используя формат вывода чисел с разделителем : 3.
Выводит на экран значение переменной i, которая используется в цикле.
Выводит на экран вектор B с помощью функции write, используя формат вывода чисел с разделителем : 3.
Использует цикл for для перебора всех элементов массива a.
Внутри цикла проверяет условие A[i] > A[23]. Если это условие истинно, то:
- Заполняет элемент массива b значением элемента массива a с индексом i.
- Сохраняет индекс i в переменной temp.
- Увеличивает значение переменной temp на 1.
Выводит на экран все элементы массива b, используя цикл for и функцию write. Обратите внимание, что в данном коде используется функция Round для округления чисел до ближайшего целого числа.