Метод прямого слияния. Pascal

[SeRhy]

У меня есть задание упорядочить масив целых чисел на 30000 елементов методом прямого слияния. Я написал:

PHP код:

Program qqq;

Type mas=array[1..30000] of integer;

var a:mas;
    b,c:^mas;

function rozlutta(var a:mas; b,c:mas; var x,y:integer):boolean;
var i,g:integer;
begin
b^[1]:=a[1];
x:=1;
y:=0;
g:=0;
for i:=2 to 30000 do
 if g=0 then
  if a[i]>=b^[x] then
   begin
    x:=x+1;
    b^[x]:=a[i];
   end
  else
   begin
    y:=y+1;
    c^[y]:=a[i];
    g:=1;
   end
  else
   if a[i]>=c^[y] then
    begin
     y:=y+1;
     c^[y]:=a[i];
    end
  else
   begin
    x:=x+1;
    b^[x]:=a[i];
    g:=0;
   end;
rozlutta:=y=0;
end;

procedure sort(var a:mas);
var k,l,m,x,y:integer
    b,c:^mas;
begin
 New(b);
 New(c);
 While not rozlutta(a,b,c,x,y) do
  begin
   k:=1;
   l:=1;
   m:=1;
   while (k>=x) and (l<=y) do
    begin
     if b^[k]>=c^[l] then
     begin
     a[m]:=c^[l];
     l:=l+1;
     m:=m+1;
     else
     begin
     a[m]:=b^[k];
     k:=k+1;
     m:=m+1;
     end;
    if k>x then
     for l:=l to y do
      begin
       a[m]:=c^[l];
       m:=m+1;
      end
    else
     for k:=k to x do
      begin
       a[m]:=b^[k];
       m:=m+1;
      end;
   end;
 a:=b^;
 dispose(b);
 dispose(c);
 end;

Procedure readmas (var b:masuv);
var i:integer;
    f:text;
Begin
Assign(f,paramstr(1));
 Reset(f);
 i:=1;
  while (not eof(f)) and (i<=30000) do
   begin
    readln(f,b[i]);
     i:=i+1;
   end;
 close(f);
end;

procedure zapus (var b:masuv; por,per:longint);
var i:integer; f:text;
Begin
 Assign(f,paramstr(2));
 Rewrite(f);
 Writeln(f,por);
 Writeln(f,per);
 Writeln(f);
  for i:=1 to 30000 do
   writeln(f,b[i]);
Close(f);
end;

Begin
 New(b);
 New(c);
 Readmas(a);
 rozlutta(a,b,c);
 sort(a);
 Zapus(a,b,c);
end. 


При попытке компиляции в "b^[1]:=a[1];" сторчке появляется ошибка:
Error 121: Inavalid qualifier

Подскажите пожалуйста в чём проблема. Зарание спасибо

[cvv]

...
var a:mas;
b,c:^mas;
...
function rozlutta(var a:mas; b,c:mas; var x,y:integer):boolean;
var i,g:integer;
begin
b^[1]:=a[1];
...

b рассматривается как переменная-параметр типа mas, а не глобальная переменная-указатель типа ^mas