Сортировка пузырьком в Delphi

[hacker-allv]

Здравствуйте!Немогли бы вы написать пример сортировки пузырьком в таблице delphi

[Rin]

var m: array of integer;
i,j,x,w,a:integer;

  procedure quick_sort(First,last:integer);
begin
i:=First;
j:=Last;
x:=m[(i+j) div 2];
repeat
  while m[i]<x do i:=i+1;
  while x<m[j] do j:=j-1;
  a:=a+1;
  if i<=j then
  begin
      w:=m[i];
      m[i]:=m[j];
      m[j]:=w;
      i:=i+1;
      j:=j-1;
  end;
until i>j;
if first<j then quick_sort(first,j);
if i<last then quick_sort(i,last);
end;

begin
SetLength(m,15);
randomize;
for I := 0 to high(m) do
m[i]:=random(100);
quick_sort(0,high(m));
for I := 0 to high(m) do
write(m[i],'   ');
readln;

end.

[Serge_Bliznykov]

Rin, а вы сортировку пузырьком c быстрой сортировкой не путаете?!

[Rin]

Ох, простите. Вы правы. Лоханулся что-то.

var m:array[1..20] of integer;i,j,k:byte;
begin
for i:=2 to 20 do
begin
  for j:=20 downto i do
  begin
    if m[j-1]<m[j] then
    begin
      k:=m[j-1];
      m[j-1]:=m[j];
      m[j]:=k;
    end;
  end;
end;