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

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