Довести программу до ума

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

res:=osn;
for i:=n-1 do
умножить res на osn

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.

res:=power(a,n);