begin

    AssignFile(F,'c:\aaa.txt');
    AssignFile(F1,'c:\aaa1.txt');
    Reset(F);
    Rewrite(F1);
    Readln(F,S);
    if RightStr(S,2)='" ' then
      begin
        Readln(F,S);
        Str:=copy(S,17,16);
        Writeln(F1,Str);
        //showmessage(Str);
        end
     else
      begin
        Str:=copy(S,70,16);
        Readln(F,S);
        Str:=Str+copy(S,3,8);
        Writeln(F1,Str);
        //showmessage(Str);
      end;
end;

end.
这是我写的一段程序 亲各位大侠看看那有问题啊