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

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