Дано число а и натуральное число n . напечатать на экране а в степени n ( паскаль цикл с предусловием)

Program P;
Var
    a, n, i : Integer;
    S : Integer;
Begin
    S := 1;

    Write('Enter a ');
    ReadLn(a);
    
    Write('Enter n ');
    ReadLn(n);

    for I:=1 to N do
        S := S * a;

    WriteLn('a ^ n = ', S);

    ReadLn;
End.