{* Меняем букву а на букву б *}

Unit BVMESTA;
Interface
Implementation
Begin
 writeln('Меняем букву а на букву б');
End.

Program pas;

Uses bvmesta.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  S     : String;
  i     : integer;
  v     : integer;
  dlina : integer;
  x     : integer;
  y     : integer;
Begin
  writeln('Введите текст');
  readln(s);
  dlina := length(s);
  For i := 1 To dlina Do {* Увеличиваем i от 1 до dlina с шагом 1 *}
  Begin
    If s[i] = 'а' Then
      s[i] := 'б';
  End;
  v := x + y;
  Writeln('В результате замены букв а на букву б - ');
  Writeln(s);
  readln; {* Ждем нажатия Enter *}
End.