Разработать программу вычисления значения многочлена

type
  RNum = Real;
const
  MAXN = 65534 div sizeof(RNum) - 1;
type
  RNumArr = array [0..MAXN] of RNum;
var
  n, i: integer;
  p, x, xn: RNum;
  a: ^RNumArr;
  s: string;
begin
  repeat
    Write('Степень полинома: '); ReadLn(n);
    if (n>=0) and (n<MAXN) then break
    else WriteLn('*** Неверное значение, повторите ввод...');
  until false;
  GetMem(a,sizeof(RNum)*(n+1));
  Write('Введите коэффициенты a0..a',n,': ');
  for i:=0 to n do Read(a^[i]); ReadLn;
  repeat
    Write('Введите x: '); ReadLn(x);
    p:=a^[0]; xn:=1;
    for i:=1 to n do begin
      xn:=xn*x;
      p:=p+a^[i]*xn;
    end;
    WriteLn('P(x) =',p);
    Write('Повторить (Y/n)? '); ReadLn(s);
  until (s<>'') and (s<>'Y') and (s<>'y');
  FreeMem(a,sizeof(RNum)*(n+1));
end.