laba.1.4.(Delphi)

Program Laboratorka_1_4;

Uses System.SysUtils;
Const
  MIN_VALUE_NUMBER = 1;
  MAX_VALUE_NUMBER = 10;
Var
  Number, I, LimNumber: Integer;
  IsCorrect: Boolean;
  Sequence, ReversedSeq: Array of Integer;

Begin
  Writeln ('Данная программа выводит последовательность с заданным количеством членов в
            обратном порядке.');
  Writeln ('Диапазон ввода значений количества членов последовательности: ', MIN_VALUE_NUMBER,
           '...', MAX_VALUE_NUMBER, '.');

  Repeat
    IsCorrect := True;
    Write('Введите значение количества членов последовательности: ');
    Try
      Readln(Number);
    Except
      Writeln('Проверьте корректность ввода данных!');
      IsCorrect := False;
    End;

    If (IsCorrect) And ((Number < MIN_VALUE_NUMBER ) Or (Number > MAX_VALUE_NUMBER)) Then
    Begin
      Writeln ('Введите значение от ', MIN_VALUE_NUMBER, ' до ', MAX_VALUE_NUMBER, '!');
      IsCorrect := False;
    End;
  Until(IsCorrect) ;

  LimNumber := Number - 1;
  SetLength(Sequence, Number);
  SetLength(ReversedSeq, Number);
  Writeln('Введите значения элементов последовательности: ');

  For I := 0 To LimNumber Do
  Begin
    Repeat
      IsCorrect := True;
      Write('Введите ', I + 1, ' элемент последовательности: ');
      Try
        Readln(Sequence[I]);
      Except
        Writeln('Проверьте корректность ввода данных!');
        IsCorrect := False;
      End;
    Until(IsCorrect);
  End;


For I := 0 To LimNumber Do
  Begin
    ReversedSeq[I] := Sequence[LimNumber - I];
  End;

  Writeln('Вывод последовательности в обратном порядке: ');

  For I := 0 To LimNumber Do
  Begin
    Write (ReversedSeq[I], ' ');
  End;

  Readln;
End.