var i : integer;
    a, b : String;
    F : TextFile;
    iPos,Ps,j, Ck:integer;
    Temp: array[0..17] of string;
begin
Assignfile(F, 'D:uplg vcr주문.txt');
Ck := 1;
Reset(F);
Readln(F, a);
Readln(F, a);
while not Eof(F) do begin
    iPos := Pos(#9,a);
    if iPos <> 0 then begin
       j:=0;
       while (a<>#9) and (length(a)>0) do begin
          if (length(a) =0) then begin
             readln(F,b);
             j:=0;
             a := a + b;
          end else begin
             Ps:=pos(#9,a);
             Temp[j]:=copy(a,1,Ps-1);
             a:=copy(a,Ps+1,length(a));
             j:=j+1;
          end;
       end;
    end;
    readln(F,a);
end;
CloseFile(F);
end;

밑에 두분이 에러가 나요...
Temp[j]:=copy(a,1,Ps-1);
a:=copy(a,Ps+1,length(a));

음.. 이거 어케 하나요... copy() 문이 잘못 된거 같은데... 확인좀 해 주세요