Напишите программу, которая заменит а заданном тексте каждую букву <<о>> символом <> Pascal ABC

Конечно, вот пример программы на языке Pascal ABC, которая заменит каждую букву "о" в заданном тексте символом "!":

program ReplaceLetter;
var
  inputText, outputText: string;
  i: integer;
begin
  // Вводим текст
  writeln('Введите текст:');
  readln(inputText);

  // Заменяем букву "о" символом "!"
  outputText := '';
  for i := 1 to length(inputText) do
  begin
    if inputText[i] = 'о' then
      outputText := outputText + '!'
    else
      outputText := outputText + inputText[i];
  end;

  // Выводим измененный текст
  writeln('Измененный текст:');
  writeln(outputText);

  // Для того чтобы программа не закрывалась сразу после выполнения
  readln;
end.

Надеюсь, это поможет! Если у вас есть дополнительные вопросы, не стесняйтесь задавать.