Определите цифры 3-х значного числа..составьте программу))

Наведу на мысль
var x,z:integer;
BEGIN
readln(x);

writeln(xmod10);
x=xdiv10;
writeln(xmod10);
x=xdiv10;
writeln(xmod10);
x=xdiv10;
end.
исправь ошибки если есть