В заданном массиве найти все числа, меньшие заданного А - Pascal ABC

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

В заданном массиве найти все числа, меньшие заданного А, и переместить их в начало массива в той же последовательности, как они встречаются. Вывести полученный массив. *Формат входных данных В первой строке входного файла записаны через пробел два целых числа N и A (1≤N≤10 000, 0≤A≤1 000 000 000). Во второй строке через пробел записаны N целых неотрицательных чисел, не превосходящих 1 000 000 000. Формат выходных данных В выходной файл выведите полученный массив. Пример input.txt output.txt 4 5 1 2 3 4 1 2 3 4 5 6 9 7 5 3 1 5 3 1 9 7 *

Решение задачи: «В заданном массиве найти все числа, меньшие заданного А»

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

k:=0;
for i:=1 to n do
if mas[i]<a then
 begin
  k:=k+1;
  x:=mas[i];
  for j:=i downto k+1 do
  mas[j]:=mas[j-1];
  mas[k]:=x;
 end;

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

В данном коде используется цикл for, который начинается с i=1 и продолжается до n. Внутри цикла проверяется условие if mas[i]<a. Если это условие истинно, то увеличивается счетчик k на 1, переменной x присваивается значение mas[i], а затем происходит перебор всех элементов массива от i до k+1 с помощью цикла for. В результате, все элементы массива, меньшие заданного числа a, заменяются на x. После завершения внутреннего цикла, значение переменной mas[k] становится равным x.