Помогите срочноо!) составить программу на языке Pascal, которая в одномерном массиве…

type array100=array [1… 100] of integer; var x,y: array100; i,n,min,max: integer; 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