Определите, что будет записано в результате s после выполнения фрагмента кода

1)
begin
  var s1:=ReadlnString('Текст:');
  Writeln('k = ',s1.Where(c->Pos(c,'01')>0).Count);
  var s2:=s1.Select(c->c='0'?'A':c).Select(c->c='1'?'M':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

Romanovich (первая буква большая)

Кодирование в ASCII (American standard code for information interchange):

Двоичный код: 01010010 (R), 01101111 (o), 01101101 (m), 01100001 (a), 01101110 (n), 01101111 (o), 01110110 (v), 01101001 (i), 01100011 (c), 01101000(h)

Кодирование в КОИ-8 («Код Обмена Информацией 8-битовый», таблица разработана для кодирования букв кириллицы)

Двоичный код: 11111010 (З), 11000001 (а), 11010111 (в), 11010100 (т), 11010010 (р), 11000001 (а), 00100000 (пробел), 11010111 (з), 11001001 (и), 11001101 (м), 11000001 (а), 00101110 (. точка)

Десятичный код этой фразы: 250, 193, 215, 212, 210, 193, 32, 215, 201, 205, 193, 46