Одномерный массив. Сформировать такой массив В, который содержит копию положительных элементов массива А - Pascal

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

Дан одномерный массив чисел А. Сформировать такой массив В, который содержит копию положительных элементов массива А.

Решение задачи: «Одномерный массив. Сформировать такой массив В, который содержит копию положительных элементов массива А»

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

uses crt;
const max=100;
var a,b:array[1..max] of integer;
    n,i,k:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива A n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
k:=0;
for i:=1 to n do
 begin
  a[i]:=random(100)-50;
  write(a[i]:4);
  if a[i]>0 then
   begin
    k:=k+1;
    b[k]:=a[i];
   end;
 end;
writeln;
writeln;
if k=0 then write('В массиве А нет положительных элементов!')
else
 begin
  writeln('Массив В положительных элементов:');
  for i:=1 to k do
  write(b[i]:4);
 end;
readln
end.

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

Программа начинается с заголовка uses crt; который подключает модуль crt для работы с консолью.
Следующая строка объявляет константу max равную 100.
Затем объявляются две переменные-массива a и b типа array[1..max] of integer, т.е. одномерные массивы длиной до 100 элементов.
Далее объявляются три переменные n, i и k типа byte.
В основной части программы происходит следующее:
- С помощью функции clrscr() очищается экран.
- Функция randomize() инициирует генератор случайных чисел.
- В цикле repeat-until происходит запрос на ввод размера массива n.
- После ввода размера массива выводится сообщение Исходный массив:, после чего в цикле for i:=1 to n do происходит заполнение массива a случайными числами от -50 до 50.
- В том же цикле проверяется, является ли каждый элемент массива a положительным числом. Если это так, то число копируется в массив b.
- После заполнения массива a выводится сообщение В массиве А нет положительных элементов! или выводится массив b в зависимости от того, были ли в массиве a положительные числа.
В конце программы ожидается ввод с клавиатуры с помощью функции readln().