Создать задачу сортировка с помощью процедур

Вот, с рекурсией procedure QuickSort (var a: array100; low: integer; high: integer); var i,j,x,t: integer; begin i: =low; j: =high; x: =A[ (low+high) div 2]; repeat while (A[i]>x) do i: =i+1; while (A[j]j) or (i>=n); if (low