Замена символа при вводе - Pascal ABC

Хочу сделать так чтоб при readln(S); если человек вводит символ '#' программа вводила символ '√' и присваивал переменной S его вместо '#'.

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

uses CRT;
var C: char;
begin
repeat
C := ReadKey;
case C of
#13:exit;
'#':C := '!';
end;
write(C);
until C=#13;
end.

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

В начале кода используется директива uses CRT, которая позволяет использовать функции стандартной библиотеки ввода-вывода, такие как ReadKey и Write.
Переменная C типа char используется для хранения введенного символа.
В цикле repeat-until происходит чтение символа с помощью функции ReadKey и его сохранение в переменной C.
С помощью оператора case происходит проверка символа C на равенство с символом '#'. Если это условие выполняется, то переменной C присваивается символ '!'.
После проверки символа C происходит вывод этого символа с помощью функции Write.
Цикл repeat-until продолжается до тех пор, пока символ C не будет равен символу '#'.
По окончании цикла программа завершается с помощью функции exit.