Строки. Заменить в строке букву е на букву и, а букву и на е до первой точки - Free Pascal

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

Задание 3. Дана строка символов. Замените в ней букву е на букву и, а букву и на е до первой точки.

Решение задачи: «Строки. Заменить в строке букву е на букву и, а букву и на е до первой точки»

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

program Perebor;
 
var
  s: string;
  i, p: integer;
 
begin
  readln(s);
  p:=pos('.',s);
  for i:=1 to p do
  begin
  if (s[i]='и') then s[i]:='е' else
  if (s[i]='е') then s[i]:='и' else
  if (s[i]='И') then s[i]:='Е' else
  if (s[i]='Е') then s[i]:='И';
  end;
  writeln('Полученная строка:');
  writeln(s);
end.

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

Создаются следующие переменные: s - строка для обработки; i, p - целочисленные переменные для цикла и работы со строкой.
С помощью функции readln() в переменную s считывается строка из консоли.
С помощью функции pos('.',s) определяется позиция первой точки в строке s.
В цикле от 1 до p (то есть, пока не будет достигнута точка) выполняются следующие действия:
- Если символ под позицией i равен 'и', то он заменяется на 'е'.
- Если символ под позицией i равен 'е', то он заменяется на 'и'.
- Если символ под позицией i равен 'И', то он заменяется на 'Е'.
- Если символ под позицией i равен 'Е', то он заменяется на 'И'.
С помощью функции writeln() выводится полученная строка.
Запускается цикл обработки строки.