Дан текстовый файл состоящий из N строк. Организовать замену символов в файле. "Старый" и...

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
var t:=ReadAllText('Pascal.txt');
var c1:=ReadlnString('Введите строку замещаемых символов').ToCharArray;
var c2:=ReadlnString('Введите строку замещающих символов').ToCharArray;
for var i:=0 to c1.Length-1 do
t:=t.Replace(c1[i],c2[i]);
WriteAllText('Pascal.txt',t);
Writeln('Работа завершена');
end.

Пример
Введите строку замещаемых символов ячсми
Введите строку замещающих символов фывап
Работа завершена

Скачать вложение Текст (TXT)