Переписать в файл Т2 все компоненты файла Т1 с заменой в них символа «0» на символ "1"

[АполинАрия]

Добрый вечер.
Есть такая вот задачка.
Помогите пожалуйста...

Дан текстовый файл Т1. Переписать в файл Т2 все компоненты файла Т1 с заменой в них символа «0» на символ «1» и наоборот.

Язык программирования : Pascal

[Jora_Kornev]

а в чем проблема то?
алгоритм такой:
1. подключаем для чтения файл Т1.
2. перезаписываем файл Т2.
3. используем следующий код:

repeat
 read(T1, c);     {c : char;}
 if c='0' then c:='1' else 
  if c='1' then c:='0';
 write(T2, c);
until eof(T1);

4. закрываем файл Т1.
5. закрываем файл Т2.

Вот и все)

[АполинАрия]

СпасибО)
Щас буду делать)