прога меняет букву "а" на "о" может чем поможет program stroka1; uses crt; var k,i,n: integer; s: string; begin writeln('Введите строку:'); readln(s); n:=length(s); k:=0; for i:= 1 to n do if s[i]='a' then begin k:=k+1; s[i]:='o'; end; if k=0 then write('Букв а в строке ', s, ' нет') else write('Новая строка: ',s); readln; end.