laba_1_4 delphi

Program laba_1_4;
Uses
    System.SysUtils;
Var
    Arr: Array of Integer;
    X, B, N, I : Integer;
    Iscorrect : Boolean;
Const
    Min: Integer = 1;
Begin
    Repeat
        Iscorrect := True;
        Writeln ('Введите количество элементов в массиве: ');
        Try
            Readln(N);
        Except
            Writeln('Вы ввели не число, введите снова.');
            IsCorrect := False;
        End;
        If (IsCorrect And (N < Min)) Then
        Begin
            Writeln('Ожидалось положительное число.');
            IsCorrect := False;
        End;
    Until (Iscorrect) ;

    Repeat
        Iscorrect := True;
        Writeln ('Введите x: ');
        Try
              Readln (X);
        Except
              Writeln('Вы ввели не число, введите снова.');
              Iscorrect := False;
        End;
        If (Iscorrect And (X < Min)) Then
        Begin
            Writeln ('Ожидалось положительное число.');
            Iscorrect := False;
        End;
    Until (Iscorrect);

    SetLength(Arr, N);
    Writeln ('Введите поочерёдно элементы массива: ');
    For I := 1 To N Do
        Begin;
            Repeat
                Iscorrect := True;
                Try
                    Readln (Arr[I]);
                Except;
                    Writeln('Вы ввели не число, введите снова.');
                    IsCorrect := False;
                End;
            Until (Iscorrect);
        End;
    B := Arr[N - 1];
    For I := (N - 2) Downto 0 Do
        Begin
            B := Arr[I] + (B * X);
        End;
    Writeln ('Значение многочлена равно: ', B);
    Readln;
End.