Begin
N:= N + 1;
S[Pos(‘a’, S)]:= ‘б’; {заменить букву «а» на букву «б»}
End;
If CheckBox1. Checked then Edit3. Text:= IntToStr(N);
{выводчислазамен}
Edit2. Text:= S; {вывод измененного текста}
End;
6. Сохраните проект и запустите на выполнение.