文本文件转换问题 ( 积分: 50 )

现有一个文件文件，共有3个字段，分别为
编码 条码 数量
其中编码13位，条码13位，数量8位， 中间位数不够用空格补充，
10101001 6903966550227 100
10101001 2000101010012 80
10101002 6903966550210 50
10101003 6903966550203 46
请教如何将此文件中的编码和数量两字段对应数据导出生成新文本文件
10101001 , 100
10101001 , 80
10101002 , 50
10101003 , 46

procedure TForm1.Button1Click(Sender: TObject);

function FormatString(S: string): string;
begin
Result := Copy(S, 1, 13) + ',' + Copy(S, 27, 8);
end;

var
I: Integer;
begin
with TStringList.Create do
try
LoadFromFile('C:/old.txt');
for I := 0 to Count - 1 do
Strings := FormatString(Strings);
SaveToFile('C:/new.txt');
finally
Free;
end;
end;

OK！！搞定，现结贴！！多谢！