Неправильно сортируется одномерный массив

Uses crt;
const nmax = 100;
type
 mas=array[1..nmax] of integer;
Var n,i:integer;
    mass:mas;
procedure quicks(first,last: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;
     end;
   until i>j;
   if first<j then quicks(first,j,m);
   if i<last then quicks(i,last,m);
  end;
begin
clrscr;
 
 Randomize;
 
 repeat
       write('Vvedite maximum elementov ', nmax, ' : ');
       readln(n)
 until n in [1..nmax];
 
 for i := 1 to n do
     begin
          mass[i] := Random(20) -3;
          write( mass[i]:2, ' ');
     end;
 
 quicks (1,n,mass);
 
 writeln;
 writeln (' Otsortirovannij massiv ');
 for i:=1 to n do write (mass[i]:2, ' ');
 Readln
end.

j := j - 1;