Сделать так чтобы программа выводила сообщение о том у кого больше денег и у кого меньше. можно оформление)

var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('У а больше денег чем у b')
else if (b>a) then writeln('У b больше денег чем у а')
else if(a=b) then writeln('Денег поровну');
readln;
end.