Ввести с консоли строку символов произвольной длины (до 80 символов). Поменять в ней все маленькие символы 'a' и 'b' на заглавные и вывести на консоль полученную строку.

program zz1;

var s:string; / / задаем переменную строкового типа

i:integer; / / задаем переменную целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

for i:=1 to length (s) do / / организуем цикл, в котором переберем все символы от первого до последнего

begin

if s[i] = 'a' then begin delete (s, i, 1); insert ('A', s, i); end; / / производим первую замену

if s[i] = 'b' then begin delete (s, i, 1); insert ('B', s, i); end; / / производим вторую замену

end;

write ('полученная строка = ', s);

end.