var
  CharA, CharB: Char;
  IntValue: Integer;
begin
  CharA := 'A';
  IntValue := Ord(CharA);
  //IntValue is 65

  Inc(IntValue);
  CharB := Chr(IntValue);
  //CharB is 'B'

  WriteLn('intValue is ', IntValue);
  WriteLn('charB is ', CharB);
end.