[Pacsal] Быстрая Соритровка и сортировка обменом (ошибка)

[Dtska]

Помогите плиз с программой, пишет что неверно задан тип переменной bq...

program zzzz;
uses crt;
const n = 14;
type
tip1=integer;
ar=array[1 .. n] of tip1;
ar2=array[1..n] of tip1;
const a:ar = (7,4,72,12,8,232,43,56,121,6,120,13,14,132);
Procedure obmen(Var s1, s2: ar);
Procedure smena(i, j: integer);
Var
T: tip1;
Begin
clrscr;
move(s2[i], T, SizeOf(Tip1));
move(s2[j], s2[i], SizeOf(tip1));
move(T, s2[j], SizeOf(tip1));
End;
Var
i, j: Integer;
Begin
move(s1, s2, SizeOf(ar));
For i := 1 To n Do
For j := n DownTo i + 1 Do
If s2[j-1] > s2[j] Then smena(j-1, j);
  End;

{Quick}
Procedure first(Var aq: ar2; tr: integer);

Procedure qsort(m, l: Integer);
Var i, j, x, w: Integer;
Begin
i := m; j := l;
x := aq[(m+l) div 2];
Repeat
While aq[i]<x Do i:=i+1;
While aq[j]>x Do j:=j-1;
If i<=j Then Begin
w := aq[i]; aq[i] := aq[j]; aq[j] := w;
I:=i+1; j:=j-1;
End
Until i > j;
If m < j Then qSort(m, j);
If i < l Then qSort(i, l)
  End;
var
bq:ar2;
i:integer;
Begin
Writeln ('Quick Sort:');
for i:=1 to n do begin
readln (bq[i]);
end;
 qsort(bq, 1, n);
Writeln ('after qsort');
  for i:=1 to n do write(bq[i],' ');
End;

Var
  b: ar;
  i: Integer;

Begin
  obmen(a, b);
  for i := 1 to n do write(b[i],' ');
End.

[Dtska]

Всё, нашёл в чём проблема)