Странности с быстрой сортировкой

[New man]

Я напсал простенькую программку на Delphi 7, которая требует от
пользователя число, затем создает случайный массив и сортирует его.
затем выводит на экран.
Почему-то при длине массива больше трех, программа выдает
EStackOverflow. Причем ошибку вызывает именно быстрая сортировка.
Спрашивается, почему? Помогите, дорогие форумчане.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var arr:array of longword;
  fix:longword=0;
function Qs(l,h:byte):longword;
var x,m:longword;
   i,j:byte;
begin
  x:=arr[random(h-l+1)+l];
  i:=l;
  j:=h;
  inc(fix);
  repeat
    while arr[i]<x do inc(i);
    while arr[j]>x do dec (j);
    if i<j then
      begin
        m:=arr[i];
        arr[i]:=arr[j];
        arr[j]:=m;
        inc(i);
        dec(j);
      end;

  until i>=j;
  result:=1;
  if h>i then inc(result,Qs(i,h));
  if j>l then inc(result,Qs(l,j));

end;
var a,b,c,n,i:byte;
begin
  n:=0;
  i:=0;
  readln(n);
  setlength(arr,n);
  randomize;
  for i:=0 to n-1 do
  begin

      arr[i]:=random(24)*3600+random(60)*60+random(60);
  end;
     for i:= 0 to n-1 do
    writeln(arr[i]div 3600:2,' ',arr[i]div 60 mod 60:2,' ',arr[i]mod 60:2,' ');

   try
   writeln('Depth: ',Qs(0,n-1));
   readln;
   except
   end;
   writeln ('FIX: ',fix);
   readln;
   writeln('Âûâîä');
   for i:= 0 to n-1 do
    writeln(arr[i]div 3600,' ',arr[i]div 60 mod 60,' ',arr[i]mod 60,' ');
   readln;
   readln;
   readln;
   readln;
end.

[s-andriano]

А зачем внутри сортировки рандом?

[Xardas]

Рекурсия -> не совсем корректное условие завершения рекурсии -> переполнение стека. Я не разбирался в этом коде, при длине массива 10, 3 раза выполнилась программа, 1 раз - переполнение стека. Массив заполняется случайными числами, вероятно, что какие-то значения препятствуют корректному выходу из рекурсии

[Abstraction]

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

[New man]

if i<j then
      begin
        m:=arr[i];
        arr[i]:=arr[j];
        arr[j]:=m;
        inc(i);
        dec(j);
      end;

В этом участке надо изменить условие на <=
Ошибка в один символ, а такие последствия...