сортування

[dizzy69]

прога має виконувати сортувння масиву двома способами при цьому виводити вихідний та результуючі масиви а також кількість порівнянь та кількість перестановок. необхідно запустити сортування вихідного масиву в циклі (1000 разів) і вивести триваліст виконнання цього циклу для кожного методу
методи сортування шейкер-сортування і швидке сортування хоара без рекурсії


прога должна выполнять сортувння массива двумя способами при этом выводить исходный и результирующие массивы а также количество сравнений и количество перестановок. необходимо запустить сортировки исходного массива в цикле (1000 раз) и вывести продолжительностью виконнання этого цикла для каждого метода
методы сортировки шейкер-сортировка и быстрая сортировка Хоар без рекурсии

Uses crt;
type  mas=array [1..1000] of integer;
const n=10;
var   m:mas;
      k,i:integer;
procedure quicks(first,last:integer;var k:integer;var m:mas);
var i,j,c,x,n:integer;
begin
  i:=first;
  j:=last;
  x:=m[(first+last) div 2];
  repeat
    while m[i]>x do i:=i+1;
    while x>m[j] do j:=j-1;
    if i<=j then
     begin
       c:=m[i];
       m[i]:=m[j];
       m[j]:=c;
       i:=i+1;
       j:=i-1;
       k:=k+1;
     end;
   until i>j;
   if first<j then quicks(first,j,k,m);
   if i<last then quicks(i,last,k,m)
   end;

begin
clrscr;
for i:=1 to n do
           begin
           writeln('введите ',i,'-ый элемеит');
           readln(m[i]);
           end;
 writeln('исходный массив ');
 for i:=1 to n do write(m[i]:3,' ');writeln;
 quicks(1,n,k,m);
         writeln('BbICTPA9 COPTUPOBKA');
         for i:=1 to n do write(m[I]:3);
         writeln;
 Readln
end.

що здесь не так