С клавиатуры вводится символ напечатать 2 рядом стоящих символа справа и слева по таблице ASCII и их номера — Pascal(Паскаль)

program tmp;
uses crt;
var ch:char;
begin
clrscr;
readln(ch);
write('pred: ',chr(ord(ch)-1),' numpred: ', ord(ch)-1,'; posl: ',chr(ord(ch)+1),' numposl: ',ord(ch)+1);
readkey;
end.