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