Ввести символьную строку и заменить все буквы «а» на буквы «б» и наоборот - PascalABC.NET

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

Задача легкая, можно было решить через условный оператор, но я решил вспомнить кейс. Почему же не работает ? Ввести символьную строку и заменить все буквы «а» на буквы «б» и наоборот, как заглавные, так и строчные.

program n4str87;
Var S:String;
Var i:Integer;
begin
Read(s);
For i:= 1 to Length(s) do begin
Case S[i] of
'А': S[i]:='Б';
'а': S[i]:='б';
'Б': S[i]:='А';
'б': S[i]:='а';
end;
Write(S);
end;
end.

Решение задачи: «Ввести символьную строку и заменить все буквы «а» на буквы «б» и наоборот»

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

Readln(s);
For i:= 1 to Length(s) do
Case S[i] of
'А': S[i]:='Б';
'а': S[i]:='б';
'Б': S[i]:='А';
'б': S[i]:='а';
end;
Write(S);
end.

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

Вводится символьная строка s с помощью функции Readln.
Происходит замена букв «а» на буквы «б» и наоборот с помощью оператора Case.
Если символ в строке s равен 'А', то он заменяется на 'Б'.
Если символ в строке s равен 'а', то он заменяется на 'б'.
Если символ в строке s равен 'Б', то он заменяется на 'А'.
Если символ в строке s равен 'б', то он заменяется на 'а'.
Замененная строка S выводится с помощью функции Write.