Составить программку , которая сменяет в введенном с клавиатуры предложении все

program zz1;
var s:string; // задаем переменную строкового типа
i:integer; // задаем переменную целого типа
begin
write( введите строку );
read(s); // вводим с клавиатуры строку
for i:=1 to length(s) do // организуем цикл, в котором переберем все знаки от первого до последнего
begin
if s[i] = Б then begin delete(s, i, 1); insert(П, s, i); end; // производим подмену
end;
write( приобретенная строчка = , s);
end.