Получить новую последовательность X, выбросив из исходной все числа, большие заданного числа R - Free Pascal

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

Как проверять и выкидывать элементы из массивов? Дана последовательность P[i] i=1,2...n (n<=30). Получить новую последовательность X[i], выбросив из исходной все числа, большие заданного числа R. ( Не использую функции и процедуры)

Решение задачи: «Получить новую последовательность X, выбросив из исходной все числа, большие заданного числа R»

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

const max=30;
var x: array [1..max] of integer;
    n,r,i,j:integer;
begin
randomize;
repeat
write('Ведите рамер масива от 2 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Исходный массив');
for i:=1 to n do
 begin
  x[i]:=random(50);
  write(x[i]:4);
 end;
writeln;
write('Введите число для чравнения R=');
readln(r);
j:=0;   //счётчик <=R
for i:=1 to n do //проходим по массиву
if x[i]<=r then  //пропускаем <=r
 begin
  inc(j);
  if j<i then x[j]:=x[i]; //если нужно, на их место пишем следующие
 end;
if j=0 then write('Все элементы удалены')
else if j=n then write('В массиве нет чисел >',r)
else
 begin
  writeln('Удаление чисел >',r);
  for i:=1 to j do write(x[i]:4);
 end;
readln
end.

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

Объявляются константа max равная 30, переменные x, n, r, i, j типа integer.
Выполняется инициализация генератора случайных чисел.
В цикле повторяется ввод размера массива n и исходных данных в массив x.
Выводится исходный массив x.
Вводится число r для сравнения.
Инициализируется счётчик j для подсчёта числа элементов, меньших или равных r.
В цикле проходятся по всем элементам массива x.
Если элемент x[i] меньше или равен r, то он пропускается, а счётчик j увеличивается.
Если счётчик j меньше i, то на место x[j] записывается значение x[i].
После прохода по всем элементам массива проверяется значение счётчика j.
Если j равен нулю, выводится сообщение Все элементы удалены.
Если j равен n, выводится сообщение В массиве нет чисел >, где r - искомое число.
Если j не равен нулю и n, выводится сообщение Удаление чисел >, где r - искомое число.
Завершается работа программы.