var
MyTextFile: Text;
MyNewTextFile: Text;
i, n: Integer;
S: String;
begin
Assign (MyTextFile, 'G:\File2tab.txt');
Assign (MyNewTextFile, 'G:\NewFileS.txt');
Reset(MyTextFile);
Rewrite(MyNewTextFile);
while not EOF(MyTextFile) do begin
Readln(MyTextFile, S);
i := 1;
while i <= length(s) do begin
if s[i] = #9 then begin
delete(s, i, 1);
insert(' ', s, i); // 2 spaces
inc(i, 2);
end else inc(i);
end;
WriteLn(MyNewTextFile, S);
end;
Close(MyTextFile);
Close(MyNewTextFile);
end