Program E10;
uses crt;
var
i: integer;
S: string;
begin
writeln('Введите строку: ');
readln(S);
for i:=1 to length(S) do
if S[i] = 'о' then
S[i]:='и';
writeln('Вывод: ',S)
<span>end.
Не знаю конечно но может так..
</span>
Подмножество объектов<span>, </span>имеющих общие признаки<span>, называется классом. </span>
Почему-то код постоянно плывёт, поэтому я прикрепил решение скрином.
модель
на одну букву в леао