Составьте программу, которая заменяет все буквы "о" на символ "*" в строке s.

var 
s: string;
i: integer;

begin
write('Введите строку: ');
read(s);
for i:= 1 to length(s) do 
 case s[i] of 
  'о': s[i]:='*'; 
  'О': s[i]:='*'; 
 end;

writeln('Результат: ',s); 
end.