В одномерный массив вставьте некоторый элемент в заднюю позицию - Pascal ABC

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

Составить программу на массивы 1. Даны массив V[1..n] и число x; определить число элементов массива V[1..n] не больших х. 2. В одномерный массив вставьте некоторый элемент в заднюю позицию. 3. Исключить из массива А1..Аn первый отрицательный элемент.

Решение задачи: «В одномерный массив вставьте некоторый элемент в заднюю позицию»

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

const n = 50;
var v:array[1..n] of integer;
cnt,x,i:integer;
BEGIN
Readln (x);
For i:=1 to n do v[i]:=Random(100);
For i:=1 to n do
  IF v[i]<=x THEN cnt:=cnt+1;
Writeln(cnt);
END.

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

Переменная n инициализируется значением 50.
Создается переменная v типа array[1..n] of integer. Это означает, что v представляет собой одномерный массив из n элементов типа integer.
Переменная cnt инициализируется значением 0. Она будет использоваться для подсчета количества элементов в массиве, которые меньше или равны x.
Переменная x инициализируется значением, введенным пользователем.
Для каждого i от 1 до n выполняется следующая инструкция: v[i] присваивается случайное число от 0 до 99 с помощью функции Random(100). Это гарантирует, что все элементы массива будут уникальными.
Для каждого i от 1 до n выполняется следующая инструкция: если v[i] меньше или равно x, то значение переменной cnt увеличивается на 1.
Выводится значение переменной cnt.
Программа завершается.