На строки:
Дан текст из букв и цифр. Заменить все нули в тексте на букву А,а все единицы на букву М. Подсчитать число замен. Pascal ABC.Net type const

1)
begin
  var s1:=ReadlnString(Текст:);
  Writeln(k = ,s1.Where(c-gt;Pos(c,01)gt;0).Count);
  var s2:=s1.Select(c-gt;c=0A:c).Select(c-gt;c=1M:c);
  s2.Println;
end.

Пример:
Текст: Текст с 1 и 0: 110+101=1011
k = 12
Текст с M и A: MMA+MAM=MAMM

2)
var s1,s2:string;
i,k:integer;
begin
writeln(Введите текст:);
readln(s1);
k:=0;
s2:=;
for i:=1 to length(s1) do
 if s1[i]=0
  then begin s2:=s2+A; k:=k+1; end
  else if s1[i]=1 then begin s2:=s2+M; k:=k+1; end else s2:=s2+s1[i];
writeln(s2);
writeln(k = ,k);
end.

Пример:
Введите текст:
Текст с 1 и 0: 110+101=1011
Текст с M и A: MMA+MAM=MAMM
k = 12