В Pascal функция возвращает результат. Возвращает она его через
специальную переменную, имя которой совпадает с именем функции (или
переменная result, в fpc).
Тип возвращаемого значения определяется после двоеточия в объявлении
функции. У вас он integer. В функцию передаются значения, необходимые
для подсчёта результата.
В вашем случае у функции должен быть один параметр - число, которое
необходимо "перевернуть". И из функции необходимо вернуть перевёрнутое
число. Внутри функции вывод возможен - но в практических целях это почти
бессмысленно.
Если вы хотите перевернуть число таким способом - вам лучше использовать процедуру.
0 у вас в конце - это вывод write (PowerA (a,b)), функция вернула 0, а write его вывела.
Замените стоку
write (PowerA (a,b))
на строку
PowerA (a,b);
и выведется верный результат.