Дан текстовый файл состоящий из 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.

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

СИСТЕМА
жен., греч. план, порядок расположенья частей целого, предначертанное устройство, ход чего-либо, в последовательном, связном порядке. Солнечная система, солнечная вселенная. Ботаническая система Линея, распределенье, распорядок. Система ученья, воспитанья, порядок образ, род. Систематичное, -ческое ученье, стройное, порядочное, порядливое, последовательное, разумное, правильное, обдуманное, постепенное. Систематика жен. научное разъясненье систем. Систематик, изобретатель новой системы или охотник до строгих, последовательных порядков.

Function ArcCos(x:real):real;
var t:real;
begin
     t:=ArcTan(Sqrt(1-x*x)/x);
     if x<0 then ArcCos:=t+Pi
     else ArcCos:=t
end;

var
  a,b,c,p,p2,s,alpha,beta,gamma,h:real;
begin
  Read(a,b,p);
  c:=p-a-b;
  p2:=p/2;
  s:=sqrt(p2*(p2-a)*(p2-b)*(p2-c));
  alpha:=ArcCos((b*b+c*c-a*a)/(2*b*c));
  beta:=ArcCos((a*a+c*c-b*b)/(2*a*c));
  h:=a*Sin(beta);
  alpha:=alpha*180/Pi;
  beta:=beta*180/Pi;
  gamma:=180-alpha-beta;
  Writeln('c=',c);
  Writeln('alpha=',alpha:0:2,', beta=',beta:0:2,', gamma=',gamma:0:2);
  Writeln('S=',s,', h=',h)
end.