Дан массив X(N). Получить новый,выбросив из исходного все элементы с наименьшим значением - Free Pascal

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

Дан массив X(N). Получить новый,выбросив из исходного все элементы с наименьшим значением.

Решение задачи: «Дан массив X(N). Получить новый,выбросив из исходного все элементы с наименьшим значением»

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

program prog;
 
const
  N = 10;  
 
var  
  i, k, max: Integer;
  x: array[1..N] of Integer;
  
begin
  Randomize;
  for i:= 1 to N do begin      
    x[i]:= Random(10);
    Write(x[i], ' ');
  end;
 
  WriteLn;
  
  max:= x[1];
  for i:= 2 to N do
    if x[i] > max then
      max:= x[i];
 
  WriteLn('max: ', max);
 
  k:= 1;
  for i:= 1 to N do begin
    if x[i] <> max then begin
      x[k]:= x[i];
      Inc(k);
    end;
  end;
  
  for i:= 1 to k - 1 do
    Write(x[i], ' ');
  WriteLn;
end.

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

В этом коде:

Задаётся константа N, которая определяет размер массива.
Создаётся массив x, инициализированный случайными целыми числами от 0 до 9.
Выводится строка, описывающая значения элементов массива.
Находится максимальное значение в массиве.
Инициализируется счётчик k, который будет отслеживать количество элементов со значением, меньшим максимального.
Происходит перераспределение элементов массива, начиная с первого элемента, значение которого не равно максимальному.
Выводится строка, описывающая значения элементов массива, начиная с первого элемента, значение которого не равно максимальному.