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

// PascalABC.NET 3.2, сборка 1363 от 17.12.2016 // Внимание! Если программа не работает, обновите версию! begin   var s:=ReadlnString('>');   var na:=s.Where(c->c='0').Count;   s:=s.Replace('0','А');   var nm:=s.Where(c->c='1').Count;   s:=s.Replace('1','M');   Writeln(s);   Writeln('Заменено нулей- ',na,', единиц- ',nm) end. Пример > ТурбоПаскаль не поддерживается с 1994г, сейчас 2016г. ТурбоПаскаль не поддерживается с M994г, сейчас 2АM6г. Заменено нулей- 1, единиц- 2