Написать программу о нахождении двухзначного числа а.найти сумму и произведение цифр данного числа,а также вывести новое число,в котором цифры числа а поменялись местами

Var a,a1,a2:integer;
begin
readln(a);
a1:=a div 10;
a2:=a mod 10;
writeln("Сумма цифр = ",a1+a2);
writeln("Произведение цифр = ",a1*a2);
writeln("Число наоборот: ",a2*10+a1);
end.

Пример:
25
Сумма цифр = 7
Произведение цифр = 10
Число наоборот: 52