Пожалуйста, разъясните метод быстрой сортировки, синтаксис и что здесь выполняется.

{быстрая сортировка}
const
maxn = 100000;
Type
DataType = extended;
var
i,n:longint;
buf,X:DataType;
a:array[1..maxn]of DataType;

procedure Sort(L,R:Longint);
var
j:longint;

begin
i:=L; j:=R; X:=a[(i+j)shr 1];
repeat
while aX do dec(j);
if ij;
if iL then Sort(L,j);
end;

begin
end.