Сортировка Шелла и Шейкер-сортировка

[sverhuVniz]

точно я не заметил.
думал 2 любые сортировеи.

вот шелла:
procedure Shell(var item: DataArray; count:integer);
const
t = 5;
var
i, j, k, s, m: integer;
h: array[1..t] of integer;
x: DataItem;
begin
h[1]:=9; h[2]:=5; h[3]:=3; h[4]:=2; h[5]:=1;
for m := 1 to t do
begin

k:=h[m];
s:=-k;
for i := k+1 to count do
begin
x := item[i];
j := i-k;
if s=0 then
begin
s := -k;
s := s+1;
item[s] := x;
end;
while (x<item[j]) and (j<count) do
begin
item[j+k] := item[j];
j := j-k;
end;
item[j+k] := x;
end;
end;
end;

а вот те и шакер:
type myArray = array[0..20] of integer;
procedure shakerSort( var arr : myArray; const length : integer );
var j, k, L, R : integer;
item : integer;
begin
L := 1;
R := length - 1;
k := length - 1;
repeat
for j := R downto L do begin
if arr[j-1] > arr[j] then begin
item := arr[j-1];
arr[j-1] := arr[j];
arr[j] := item;
k := j;
end;
end;
L := k + 1;
for j := L to R do begin
if arr[j-1] > arr[j] then begin
item := arr[j-1];
arr[j-1] := arr[j];
arr[j] := item;
k:=j;
end;
end;
R := k-1;
until L < R;
end;

если было лень лазать в книгах мог просто найти в нете!

[vanomux]

Тут можно скачать Сортировка Шелла http://algorithmlib.org/sort_shella и Шейкер сортировка http://algorithmlib.org/sort_shik