pascal)))

[keep21]

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

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


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

[Admiral]

Этот код заменяет только на один пробел
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 в тхт файле.

[keep21]

спасибо)