Образовать новую последовательность, выбросив из исходной те члены, которые равны min(a1,a2,...an) - Pascal

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

ЗАДАЧА НА ПАСКАЛЕ! Здравствуйте, срочно нужна помощ, затра экзамен по алгоритмизации, но у меня не сделана одна задача и я не могу её сделать, может кто-нибуди знает Паскаль? Вот задача: "Дана последовательность целых чисел a1,a2,...an. Образовать ноыую последовательность, выбросив из исходной те члены, которые равны min(a1,a2,...an)". Задача на сложные типы данных: массивы. Помогите плиз, ЗАРАНЕЕ ОГРОМНОЕ СПАСБО!!!

Решение задачи: «Образовать новую последовательность, выбросив из исходной те члены, которые равны min(a1,a2,...an)»

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

const n = 10;
var a: array[1..n] of integer;
  b: array[1..n] of integer;
  i, c: integer;
...
min := a[1];
for i:=1 to n do if min>a[i] then min := a[i];
c := 0;
for i:=1 to n do
 if a[i]<>min then begin
  inc(c);
  b[c] := a[i]
 end;

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

Объявлены массивы a и b, а также переменные i и c типа integer.
Переменная min инициализируется значением первого элемента массива a.
В цикле перебираются все элементы массива a. Если текущий элемент меньше значения переменной min, то он становится новым значением min.
В цикле перебираются все элементы массива a. Если значение текущего элемента не равно значению переменной min, то этот элемент копируется в массив b с индексом c. Значение переменной c увеличивается на единицу после каждой итерации.