не могу понять в чем тут дело , с отладчиком в Делфи 10

program Ferm_01_Sred_01;
 
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
 
uses
 SysUtils;
 
//Crt32; C:\Users\Nikita001\Desktop\2.txt
const cMax=4;
type tNumbers=array [1..cMax]of integer;
var  arr:tNumbers;
     i:integer;
 
procedure QuickSort(var arg:tNumbers;aL,aR:integer);
var L,R:integer;
    M,T:integer;
begin
 
  L:=aL;R:=aR;
 
     M:=(arg[L]+arg[(L+R) div 2]+arg[R]) div 3;//среднее из трех
     repeat
 
         while arg[L]<M do L:=L+1;// пока левый меньше сред.двигаем его в право
 
         while arg[R]>M do R:=R-1;// пока правый больше сред.двигаем его в лево
 
          if L<=R then begin      //сравниваем индексы
 
             if arg[L]>arg[R] then begin //если Л > П меняеим их местами
 
               T:=arg[L]; arg[L]:=arg[R]; arg[R]:=T;
 
             end;
 
             L:=L+1; R:=R-1;//делают шаг навстречу друг к другу
          end;
 
     until L>R;
      if R>aL then QuickSort(Arr,aL,R);
 
      if L<aR then QuickSort(Arr,L,aR);
end;
 
procedure ShowAr(const arg:string);
var i:integer;
begin
 
 writeln(arg);
   for I := 1 to cMax do write(Arr[i]:4);
   readln;
 
end;
 
 
BEGIN
 
   for I := 1 to cMax do Arr[I]:=random(1000)+1;
  ShowAr('Do ');
     writeln;
      QuickSort(Arr,1,cMax);
  ShowAr('Posle ');
 
   readln;
END.