Pascal/Turbo Pascal - mostrar siguiente caracter

Hola mi problema es que tengo un problema que dice que al introducir cualquier caracter lo codifique mostrando el siguiente, pero al ser un caracter no se como se hace. Por ejemplo si introduces un 'a' que ponga 'b' o un digito '2' que ponga '3' .
Tengo esto hecho pero me muestra la letra en codigo ascii.

var
c:char;

begin
writeln('Escribe un caracter: ');
readln(c);
case c of
'a'..'z': begin
if c='z' then writeln('a')
else writeln(ord(c));
end;
'A'..'Z': begin
if c='Z' then writeln('A')
else writeln(ord(c));
end;
'0'..'9': begin
if c='9' then writeln('0')
else writeln(ord(c));
end;
else writeln('*');
end;

readln();
end.

program descodi;
uses
crt;

var
c : char;

function sigiente : char;
begin
gotoxy(10,3);write('Entre Caracter : ');
gotoxy(27,3);read(c);
clrscr;
sigiente := chr(ord(c) + 1);
gotoxy(10,3);write('El Sigiente ES : ');
end;

begin
clrscr;
gotoxy(27,3);write(sigiente);
repeat until keypressed;
end.

muchas gracias, me sirvió