(char). пользователь вводит символ. вывести на экран символ, последующий за ним в таблице кодов ascii

Var a:char;
begin
write('Введите символ - ');
readln(a);
writeln('Последующий символ ',succ(a));
end.
succ(x) -  встроенная функция, которая выдает последующее значение переменной x