program  Test;
 var  x,y:char;
 var  s: string ;
 var  i,countdigit:integer;
 begin 
 Write('Введите последовательность: '); ReadLn(s);
 Write('Меняем (в каждой паре) символ: '); ReadLn(x);
 Write('На символ: '); ReadLn(y);
 i:=Pos('.',s);
  if  i< 2   then   begin 
  WriteLn('В последовательности нет "." или она пуста'); exit;
  end ;
 s:=Copy(s, 1 ,i- 1 );
  if  s[ 1 ]  in  ['0'..'9']  then  countdigit:= 1   else  countdigit:= 0 ;
  for  i:= 2   to  Length(s)  do   begin 
   if  s[i]  in  ['0'..'9']  then  inc(countdigit);
   if  (s[i]=x)  and  (s[i]=s[i- 1 ])  then  s[i]:=y;
  end ;
 WriteLn('Результат> Цифр: ',countdigit,' Новая последовательность: ',s);
 end .