Дано двухзначное число найти цифры этого числа. Заранее спасибо!

Var a, b, x: integer; begin      readln(x);      a := x div 10; b := x mod 10;      writeln(a, , b); end.