Довести программу до ума - PascalABC.NET

Формулировка задачи:

Доброго времени суток! В задании написано: составить программу для вычисления степеней чисел вида aⁿ, если a>maxint, n>10. Я попробовал создать программу, наисправлял, но результат не тот, что нужен. В выводе пишет, что любое число в любой степени равняется нулю. Что я делаю не так? Помогите пожалуйста.

var 
    i, a, n, z: integer;
begin
    writeln('введите число: ');
    readln(a);
    writeln('введите степень: ');
    readln(n);
    if (a> maxint) and (n > 10) then
    for i:=1 to n do
    z:=a*n;
    writeln(a,' в степени ',n,' = ',z);
    end.

Решение задачи: «Довести программу до ума»

Листинг программы

var a,res:biginteger;
    s:string;
    n,i:integer;
begin
writeln('Введите основание степени целое число больше ',maxint);
readln(s);
biginteger.tryparse(s,a);
write('Введите показатель степени n>10 n=');
readln(n);
res:=1;
for i:=1 to n do
res:=res*a;
write(res);
end.

Объяснение кода листинга программы

Объявлены переменные: a, res (тип biginteger), s (тип string), n, i (тип integer).
Выводится сообщение для ввода основания степени.
Пользователь вводит основание степени.
Переменная a инициализируется значением основания степени.
Выводится сообщение для ввода показателя степени.
Пользователь вводит показатель степени.
Переменная n инициализируется значением показателя степени.
Переменная res инициализируется значением 1.
Запускается цикл от 1 до n.
В каждой итерации цикла значение переменной res умножается на значение переменной a.
После окончания цикла выводится значение переменной res.