Написать программу в которой будет меняться буква а на букву б. программа pascal,

Program test;
var a:integer;s:char;
begin
readln(s);
a:=ord(s)+1;
writeln(chr(a));
end.