Сортировка массива методом переноса (Delpfi)

[Nikol1983]

Необходимо написать программу в Delpfi для сортировки символьных данных методом переноса в массиве. Весь инет перерыла, так и не нашла такого метода. Как мне пояснили суть в том, чтобы:
1. Найти наименьший элемент, переслать его в рабочий массив и убрать его из исходного массива (наверное можно заменить величиной, которая больше любого реального элемента).
2. Повторить шаг 1. Но на этот раз будет выбран наименьший из оставшихся элементов.
3. Повторять шаг 1 до тех пор, пока не будут выбраны все n элементов.
Затем вывести элементы рабочего(отсортированного) массива.
Но не зная Delpfi, реализовать не могу. Помогите, пожалуйста!

[Stilet]

var a,b:array[1..10] of integer; imin,i,j:integer;
begin

вводишь массив А

 for i:=1 to 10 do begin imin:=0;
  for j:=1 to 10 do if a[imin]<a[j] then inim:=j;
  b[i]:=a[imin]; a[imin]:=maxint;
 end;

Выводишь массив В
end.

Подходит?

[Serge_Bliznykov]

Stilet, красавчик! Самое главное, что код фактически буква в букву отражает алгоритм, описанный TC!! Высший пилотаж!