Сортировка массивов PasCal

[ZombieShon]

Доброго времени суток, нужна ваша помощь.
Сформулировать динамический массив из N случайных чисел (N запросить у пользователя). Написать процедуры сортировки массива по возрастанию следующими методами: Выбором, обменами (один из алгоритмов), вставками (один из алгоритмов). Отсортировать массив вывести на экран.
Пример сортировки:

Program project1;
Uses SysUtils, DateUtils, CRT;
type
Tmas = array of double;
var
x: Tmas;
n, i: longword;
dt: Int64;
beginTime, endTime: TDateTime;
ch: char;
procedure SelectionSoft(var m: Tmas);
var
min: double;
nmin, i, j: longword;
begin
for i:=0 to High(m)-1 do
begin
{поиск минимального эдемент в интервале от i до High(m)}
min:=m[i];
nmin:= i;
for j := i + 1 to High(m) do
if m[j] < min then
begin
min:= m[j];
nmin:= j;
end;
{обмен местами минимального и i элемента}
m[nmin]:=m[i];
m[i]:=min;
end;
end;
begin
writeln('Vvedite kol-vo elementov massiva');
readln(n);
SetLength(x,n);
Randomize;
for i:= 0 to n-1 do
x[i]:= random();
beginTime:=Now;
SelectionSoft(x);
endTime:=Now;
dt:=MilliSecondsBetween(endTime, beginTime);
writeln('Vremy raboti', dt);
writeln('Vvesti massiv (Yes\No)?');
ch:=ReadKey;
if (ch = 'y') or (ch = 'Y') then
begin
for i := 0 to n-1 do
writeln(x[i]:5:3);
readln;
end;
x:=NIL;
end.

[ZX Spectrum-128]

А в чем вопрос-то?
Сортировка выбором у вас уже есть, найдите другие виды сортировки, как нашли этот.