Быстрая сортировка

[Neitrosha]

вопрос

равносильна ли эта быстрая сортировка

const max=20; { можно и больше... }
type
list = array[1..max] of integer;

procedure quicksort(var a: list; Lo,Hi: integer);
procedure sort(l,r: integer);
var i,j,x,y: integer;
begin
i:=l; j:=r; x := a[(r+l) div 2]; { для выбора среднего элемента }
repeat
while a[i]<x do i:=i+1; { a[i] > x { сортировка по убыванию}
while x<a[j] do j:=j-1; { x > a[j] { сортировка по убыванию}
if i<=j then
begin
if a[i] > a[j] then {это условие можно убрать} {a[i] < a[j] при сортировке по убыванию}
begin
y:=a[i]; a[i]:=a[j]; a[j]:=y;
end;
i:=i+1; j:=j-1;
end;
until i>j;
if l<j then sort(l,j);
if i<r then sort(i,r);
end; {sort}


вот этой укороченной

const max=20; { можно и больше... }
type
list = array[1..max] of integer;

procedure quicksort(var a: list; Lo,Hi: integer);
procedure sort(l,r: integer);
var i,j,x,y: integer;
begin
i:=l; j:=r; x := a[(r+l) div 2]; { для выбора среднего элемента }
repeat
while a[i]<x do i:=i+1; { a[i] > x - сортировка по убыванию}
while x<a[j] do j:=j-1; { x > a[j] - сортировка по убыванию}
if i<=j then

i:=i+1; j:=j-1;
end;
until i>j;
if l<j then sort(l,j);
if i<r then sort(i,r);
end; {sort}



вообще эта укороченная сортировка будет действовать без сбоев?