怎么把指针变量指向的地址中的数据取到byte数组里

procedure TForm1.Button1Click(Sender: TObject);
type
   pbytearray=^byte;
var
a:word;
b:array[0..1000] of byte;
c:^pbytearray;
i:integer;
begin
a:=1000;
getmem(c,1000);
readport($378,a,@c);调用过程把数据存到c指向的地址里
for i:=1 to 1000 do
   begin
   b[i]:=c^; 出错，类型不匹配
  { b[i]:=pbyte(integer(c)+i)^;}
   inc(c);
   end;
end;
怎么改阿。。