lab4(delphi)

Program lab4;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils;
var
    Size, i: Integer;
    Ai, Sum: Real;
    IsCorrect: Boolean;
    Arr: array of Real;
begin
    Writeln('Приветствуем вас в программе, которая вычислит сумму нечётных элементов массива.', #13#10,
            'Введите размер массива:');
    repeat
        IsCorrect := True;
        try
            Readln(Size);
        except
            IsCorrect := False;
            Writeln('Размер массива введён некорректно!!!', #13#10, 'Введите размер массива:');
        end;
        if IsCorrect and (Size < 1)
) then
        begin
            IsCorrect := False;
            Writeln('Заданное число не может являться размером массива:!!!', #13#10,
                    'Введите размер массива(целое число больше нуля):');
        end;
    until IsCorrect;
    SetLength(Arr, Size);
    i := 1;
    repeat
    begin
        Write('Введите ', i,'-й элемент массива:   ');
        repeat
            IsCorrect := True;
            try
                Readln(Ai);
            except
                IsCorrect := False;
                Write('Элемент массива введён некорректно!!!', #13#10, 'Введите ', i,'-й элемент массива:   ');
            end;
        until IsCorrect;
        Arr[i] := Ai;
        i := i + 1;
    end;
    until i > Size;
    Sum := 0;
    if i mod 2 = 0 then
        i := i - 1;
    repeat
        Sum := Sum +Arr[i];
        i := i - 2;
    until i < 0;
    Writeln('Cумма нечётных элементов массива равна: ', Sum:10:8, '.');
    Readln;
end.