Отделить первую и вторую цифру трехзначного числа, найти сумму всех цифр, перевернуть число

в моем коде выводится все в три строчки. на первой 1 и2 цифры. на второй их сумма. на третей перевернутое число:

var a,a1,a2,a3,s: integer;

begin

read (a);

a1: = a div 100;

a2: = a div 10;

a2: = a2 mod 10;

a3: = a mod 100;

s: = a1 + a2 + a3;

a: = a3 * 100 + a2*1 + a1;

writeln (a1,a2);

writeln (s);

writeln (a);

end.