Отсортировать массив тремя методами: прямого включения, прямого обмена, быстрой сортировки

program SortMas;
uses crt,DOS;
const n=1000;
      t=5000;
var
 i,j,k:integer;
 sr,per:longint;
h,m,s,hund:word;
timestart,timeend:longint;
 
 mas:array[1..n] of integer;
 begin
 clrscr;
 randomize;
 for i:=1 to n do mas[i]:=random(t);
 writeln;
 sr:=0;
 per:=0;
 writeln('massiv do sortirovki');
 
 for i:=1 to n do write(mas[i],' ');
 GetTime(h,m,s,hund);
 
 timestart:=(m*60+s);
 timestart:=timestart*100+hund;
 
 for i:=1 to n-1 do
     for j:= i+1 to n do
     begin
          sr:=sr+1;
 
 if mas[i]>mas[j] then begin
 per:=per+1;
 k:=mas[i];
 mas[i]:=mas[j];
 mas[j]:=k;
 end;
 
 end;
 GetTime(h,m,s,hund);
 
 timeend:=(m*60+s);
 timeend:=timeend*100+hund;
 
 writeln('massiv posle sort');
 for i:=1 to n do write (mas[i],' ');
writeln('vremya    ', timeend-timestart);
 writeln;
 writeln(sr);
 writeln(per);
 readln;
end.