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

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