pascal指针变量赋值解决办法

pascal指针变量赋值
各位大大，我想问一下pascal指针变量赋值的问题：
1.我有条数据是这样的：12 34 57 639 Alfred Lincoln: 8，我定义了2个type用来放数据：
type Field = packed array[1..33] of char;
type employee = record                           
        state: Integer;
        plant: Integer;
        dept: Integer;
        empid: Integer;
        count: Integer;
        name: Field;
     end; 
有个指针：type ptr = ^ employee; 
var p: array[1..n] of ptr; 
文件写出： for j:=1 to 33 do
               begin
                    {while not(p[1]^.name[j] in ['a'..'z','A'..'Z']) do
                        p[1]^.name[j]:=#32 ;}
                    write(fileout,p[1]^.name[j]);
               end; 
我排过序
结果是：12    34   56   789     4 George Carter--oe-oe-oe-oeo， 名字后面有乱码。、
我想把这些乱码去掉，想用空格代替，就用了上面注释的内容，编译没问题，但结果出不来。
把 p[1]^.name[j]:=#32 ;改成 p[1]^.name[j]:='' ;编译会报错，说 got Constant string expected Char.
我不知道怎么弄了，各位大大能帮一下吗？
[解决办法]

先初始化

var
  i:integer;
  p: array[1..10] of ptr;
begin
  for i:=low(p) to high(p) do
  begin
    new(P[i]);
    Fillchar(p[i]^.name,sizeof(p[i]^.name),#0);   //name數組初組化
    //其它變量初始化
  end;
end;