pascal))) - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - pascal))) (http://forum.oszone.net/showthread.php?t=106916)

помогите пожалуйста написать прогу в паскале!) задание такое:

заменить в текстовом файлевсе табуляции на соответствующее количество побелом.

оч надо!!!!!заранее спасибо)

Этот код заменяет только на один пробел

Код:

Program TabIntoSpace;



var

   MyTextFile: Text;

   MyNewTextFile: Text;

   i: Integer;

   S,O: String;



begin

     Assign (MyTextFile, 'C:\File2tab.txt');

     Assign (MyNewTextFile, 'C:\NewFileS.txt');



     Reset(MyTextFile);

     Rewrite(MyNewTextFile);

     while not EOF(MyTextFile) do

           begin

           Readln(MyTextFile, S);

              for i:=0 to Length(S) do

                  begin

                  O[i]:=S[i];

                    if S[i]=chr(9) then

                       O[i]:=' ';

                  end;

              WriteLn(MyNewTextFile, O);

           end;



     Close(MyTextFile);

     Close(MyNewTextFile);

end.

chr(9) это функция, 9 аргумент при котором она возвращает табуляцию из кода управляющего символа ASCII в тхт файле.