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

В моем коде выводится все в три строчки. На первой 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.