На строки:
Дан текст из букв и цифр. Заменить все нули в тексте на букву А,а все единицы на букву М. Подсчитать число замен. Нужно написать Код + блок схему

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

begin
  var s:=ReadlnString(gt;);
  var na:=s.Where(c-gt;c=0).Count;
  s:=s.Replace(0,А);
  var nm:=s.Where(c-gt;c=1).Count;
  s:=s.Replace(1,M);
  Writeln(s);
  Writeln(Заменено нулей- ,na,, единиц- ,nm)
end.

Пример
gt; ТурбоПаскаль не поддерживается с 1994г, сейчас 2016г.
ТурбоПаскаль не поддерживается с M994г, сейчас 2АM6г.
Заменено нулей- 1, единиц- 2