Даётся одно любое двухзначное число, необходимо вывести на экpан 2 числа из которых оно состоит (в программе паскаль)

A: integer;
begin
readln(a);
writeln(a - 1,' ',1);
end.

Program chisla;
uses crt;
var a,b,c : integer;
begin
write('Введите двузначное число: ');
Readln(a);
if (a>99) or (a<10) then Writeln('Введено не двузначное число') else
begin
b:=a div 10;
c:=a-(b*10);
Writeln(b,',',c);
end
end.