Определить по коду алгоритм сортировки и исправить специально допущенные в коде ошибки ( Turbo Delphi )

[Just-Joni]

Всем привет. У меня проблема: нужно сделать контрольную работу по программированию до завтра, но нет времени разбираться (я разберусь, но займёт это времени очень много), а на завтра ещё нужно до сдать по билетам мат. анализ. В связи с этим прошу помочь выполнить задание в Turbo Delphi:

"Задание - определить,
какой именно алгоритм сортировки реализован (пузырьковая, выбором,
вставкой, быстрая, расческой, Шелла), а также найти и исправить ошибки в
процедуре сортировки. Их там порядка 5 плюс-минус 1. При исправлении
запрещается вносить такие изменения, которые сильно изменяют алгоритм (в
частности, переворачивать циклы, если только в них не содержится
ошибка), выкидывать фрагменты алгоритма и т.п. Задание засчитывается,
если процедура успешно компилируется, работает и успешно сортирует любой
набор данных."

А вот сам код:

procedure Sort ( var A : array of real );
type // Эти типы позволяют создать динамическую структуру данных - стек 
пар чисел
   PRange = ^TRange;
   TRange = record
     beg, en : integer;
     next : PRange;
   end;
var
   Stack : PRange;

   procedure PushRange ( b, e : integer ); // Здесь все правильно.
   var
     P : PRange;
   begin
     New ( P );
     P.beg := b;
     P.en := e;
     P.next := Stack;
     Stack := P;
   end;

   procedure PopRange ( var b, e : integer ); // И здесь тоже.
   var
     R : PRange;
   begin
     R := Stack.next;
     b := Stack.beg;
     e := Stack.en;
     Dispose ( Stack );
     Stack := R;
   end;

// А вот дальше - уже не всё.
var
   b, e, beg, en, p, t : integer;
begin
   Stack := nil;
   PushRange ( 0, High(A) );
   while Stack <> nil do
     begin
       PopStack ( beg, en );
       tm := rn.Next;
       b := beg;
       e := en;
       p := A[(b+e) / 2];
       while b <= e do
         begin
           while A[b] < P do Inc(b);
             while A[e] > P do Dec(e);
             if b <= e then
               begin
                 t := A[e];
                 A[e] := A[b];
                 A[b] := t;
                 Inc(b);
                 Inc(e);
               end;
         end;
       if e > beg then PushRange ( beg, e );
       if b < en then PushRange ( en, b );
     end;
end;