Задание4 Delphi

Program Задание4;

Uses System.SysUtils;

Var
    N, I, K: Integer;
    Pot, X, Sum: Real;
    IsCorrect: Boolean;
    Coeff: Array Of Real;

Begin
    IsCorrect := False;
    Sum := 0;
    Pot := 1;
    Writeln('Введите степень многочлена: ');
    Repeat
        Try
            Readln(N);
            If Not (N > 0) Then
                Writeln('Введите натуральное число!')
            Else
                IsCorrect := True;
        Except
            Writeln('Введите натуральное число!');
        End;
    Until IsCorrect;
    SetLength(Coeff, N);
    Writeln('Введите коэффициенты многочлена: ');
    For I := High(Coeff) Downto 0 Do
    Begin
        IsCorrect := False;
        Repeat
            Try
                Readln(Coeff[I]);
                IsCorrect := True;
            Except
                Writeln('Введите действительное число!');
            End;
        Until IsCorrect;
    End;
    Writeln('Введите значение переменной многочлена: ');
    IsCorrect := False;
    Repeat
        Try
            Readln(X);
            IsCorrect := True;
        Except
            Writeln('Введите действительное число!');
        End;
    Until IsCorrect;
    For I := 0 to High(Coeff) Do
    Begin
        For K := 0 To I Do
            Pot := Pot * X;
        Sum := Sum + Coeff[I] * Pot;
        Pot := 1;
    End;
    Write('Значение многочлена при данном Х: ', FormatFloat('0.#######', Sum));
    Readln(I);
End.