Задача

program jdf;
var s :  char ;
begin
write ('введите символ ');
 readln (s);
 writeln (' слудующий за ' ,s, ' символ ', succ(s)  );
  write ('следующий за ', succ(s), ' символ ', succ(succ (s))    );
 end.