Склавиатуры вводится двухщначное число . программа выдает его первую и вторуб цифру

Program abc;
var a,b,c:integer;
begin
writeln('Введите двухзначное число');
readln(a);
b:=a div 10;
writeln(b);
c:=a mod 10;
writeln(c);
end.