Срочно! Помогите написать программу в турбо паскале! Огромное человеческое…

const low=1; high=10; procedure qSort (var ar: array[low… high]of real; low,high: integer); var i,j: integer; m,wsp: real; begin i: =low; j: =high; m: =ar[ (i+j) div 2]; repeat while (ar[i]m) do j: =j-1; if (i <= j) then begin wsp: =ar[i]; ar[i]: =ar[j]; ar[j]: =wsp; i: =i+1; j: =j-1; end; until (i > j); if (low