Дан символ C. Вывести его код (то есть его номер в кодовой таблице) — Pascal(Паскаль)

Program stroka1;

Var
  a: byte;
  b: char;

begin
  b := 'C';
  a := ord(b);
  writeln('код равен ', a);
  readln;

end.