одномерные массивы в delphi 7

[Студентос]

2. Даны натуральное n и вещественные числа а1, а2, а3, …, аn. Получить новую последовательность b1, b2, …, bk, удаляя из исходной все члены со значением min(a1, a2, …, an).
помогите

[Stilet]

Тут вводим массив А и находим его минимальное
...
k=0;for i:=1 to n do if a[i]<>min then begin inc(k);b[k]:=a[i];end;
...
Тут выводим массив В до k

[Студентос]

Сообщение от Stilet

Тут вводим массив А и находим его минимальное
...
k=0;for i:=1 to n do if a[i]<>min then begin inc(k);b[k]:=a[i];end;
...
Тут выводим массив В до k

раскройте пожалуйста с помощью мемо