Из исходного массива выбрать элементы, значения которых меньше 50 и сформировать новый - Pascal ABC

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

Из исходного массива А из 10 элементов выбрать элементы, значения которых меньше 50, но больше 10 и записать в новый массив В. Определить количество элементов нового массива. помогите пожалуйста составить программу.

Решение задачи: «Из исходного массива выбрать элементы, значения которых меньше 50 и сформировать новый»

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

const n=10;
type mas=array[1..n] of integer;
var a,b:mas;
    i,j:integer;
begin
 writeln('A:');j:=0;
 for i:=1 to n do 
  begin
   a[i]:=random(101);
   if (a[i]<50)and(a[i]>10) then begin inc(j);b[j]:=a[i] end;
   write(a[i]:3)
  end;writeln;
 writeln('B:');
 for i:=1 to j do write(b[i]:3);writeln;
 writeln('количество элементов массива B: ',j)
end.

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

В начале кода объявляются переменные n, mas, a, b, i, j, которые будут использоваться в программе.
Переменная n инициализируется значением 10, что указывает на количество элементов в исходном массиве.
Создается тип данных mas, который представляет собой массив целых чисел размером от 1 до n.
Переменные a и b инициализируются значением mas, что позволяет использовать их как массивы.
Далее, в цикле for i:=1 до n выполняется следующая последовательность действий:
- a[i] присваивается случайное число от 101 до 100.
- Если значение a[i] меньше 50 и больше или равно 10, то оно увеличивается на единицу, и соответствующий элемент в массиве b присваивается значение a[i].
- Значение a[i] выводится на экран.
После выполнения цикла for, выводится символ новой строки.
Затем выводится сообщение 'B:', после чего начинается новый цикл for, который проходит по всем элементам массива b.
Каждый элемент b[i] выводится на экран.
По завершении цикла for выводится символ новой строки.
Выводится сообщение 'количество элементов массива B: ', которое указывает на количество элементов в массиве b.
Код завершается.