Сортировка

[Form1]

Срочно нужен готовый код рекурсивной сортировки, она же быстрая сортировка. Поделитесь у кого он есть.

[alexBlack]

см. classes.pas / QuickSort

[WOLFak]

var
 a:array[1..100]of longint;
 i,n:longint;

procedure FileO;
begin
 assign(input,'in.in'); reset(input);
 assign(output,'out.out'); rewrite(output);
end;

procedure FileC;
begin
 close(output);
  close(input);
end;

procedure BinSort(L,R:longint);
var
 buf,i,j,el:longint;
begin
 i:=l;
 j:=r;
 el:=a[(l+r) div 2];
 while i<=j do
  begin
   while a[i]<el do
    inc(i);
    while a[j]>el do
     dec(j);
    if i<=j then
     begin
      buf:=a[i];
      a[i]:=a[j];
      a[j]:=buf;
      inc(i);
      dec(j);
     end;
  end;
  if l<j then
   BinSort(l,j);
  if i<r then
   BinSort(i,r);
end;

begin
 FileO;
 read(n);
 for i:=1 to n do
  read(a[i]);
  BinSort(1,n);
  for i:=1 to n do
   writeln(a[i]);
 FileC;
end.

Сортировка тут - procedure BinSort
вызывать ее нада с параметрами от начала массива до конца тоесть 1,n

[Form1]

Спасибо, спасли. Писать времени просто не было)