Заменить в строке символов все восклицательные знаки точками до первого пробела - Free Pascal

Формулировка задачи:

Дана строка символов. Замените в ней все восклицательные знаки точками до первого пробела.

Решение задачи: «Заменить в строке символов все восклицательные знаки точками до первого пробела»

Листинг программы

var
i,k: byte;
str: string;
begin
write('Строка: ');
readln(str);
for i:=1 to length(str) do
if (str[i] <> ' ') then
begin
if (str[i] = '!') then
str[i]:='.';
end
else
break;
writeln(str);
end.

Объяснение кода листинга программы

В данном коде происходит замена всех восклицательных знаков на точки в строке, до первого пробела.

Объявляются переменные:
- i, k: byte; - для хранения индексов символов в строке
- str: string; - для хранения строки
Вводится строка с помощью функции readln(str).
Происходит замена восклицательных знаков на точки с помощью цикла for i:=1 to length(str) do.
- Если текущий символ не равен пробелу (str[i] <> ' '), то проверяется, является ли он восклицательным знаком (str[i] = '!'). Если это так, то символ заменяется на точку (str[i]:='.').
- Если текущий символ равен пробелу (str[i] = ' '), то цикл прерывается с помощью оператора break.
Выводится измененная строка с помощью функции writeln(str).
Код завершается.