Через PascalABC.NETНаписать программу,которая запрашивает строку и меняет в ней 'ч' и 'ц'.Например:черная цапля циркулем чертила-->церная чапля чиркулем цертила

begin
  var s:=ReadlnString;
  for var i:=1 to s.Length do
    case s[i] of
    'ч':s[i]:='ц';
    'ц':s[i]:='ч'
    end;
  s.Println
end.


черная цапля циркулем чертила
церная чапля чиркулем цертила