Lab4_Delphi

Program Lab_4;
Uses
    System.SysUtils;
Var
    N, I, Sum: Integer;
    IsCorrect: Boolean;
    ArrA : Array of Integer;
Const
    MIN_ARR_LENGTH = 0;
    MAX_ARR_LENGTH = 50;
    MAX_A_VALUE = 100;
    MIN_A_VALUE = -100;

Begin
    Writeln('Эта программа найдёт сумму нечетных элементов массива');
    Writeln('Диапазон значений для ввода длины массива A - от 1 до 50');
    Writeln('Диапазон значений для ввода числа - от -100 до 100');
    Writeln('Введите количество элементов массива');
    Repeat
        IsCorrect := true;
        Try
            Readln(N);
        Except
            Writeln('Данные введены неверно, повторите ввод');
            IsCorrect := False;
        End;
        If IsCorrect And ((N > MAX_ARR_LENGTH ) Or (N < MIN_ARR_LENGTH)) Then
        Begin
            IsCorrect := False;
            Writeln('Введено значение не входящее в диапазон допустимых значений(от 1 до 50)');
        End;
    Until (IsCorrect);

        SetLength(arrA, 2 * N);
        Sum := 0;

    While I < 2 * N Do
    Begin
        IsCorrect := True;
        Write('Введите элемент массива №', I + 1, ': ');
        Try
            Readln(ArrA[I]);
        Except
            IsCorrect := False;
            Writeln('Вы ввели некорректные данные. Попробуйте снова.');
            I := I - 1;
        End;
        If IsCorrect And ((ArrA[I] > MAX_A_VALUE ) Or (ArrA[I] < MIN_A_VALUE )) Then
        Begin
            IsCorrect := False;
            Writeln('Введено значение не входящее в диапазон допустимых значений(от -100 до 100)');
            I := I - 1;
        End;
    I := I + 1;
    End;

    For I := 0 To High(arrA) Do
        If ((I + 1) mod 2 > 0) Then
            Sum := Sum + arrA[I];
    Write('Сумма нечетных элементов массива : ', Sum);
    Readln;
End.