лаба2н1(изм)

Program Laba2_1;

Uses
    Windows, System.SysUtils;

Var
    N, I: Integer;
    Arr: Array of Integer;
    IsCorrect: Boolean;
    Current, Temp: Integer;

Begin
    SetConsoleCP(1251);
    SetConsoleOutputCP(1251);
    Writeln('Данная программа предназначена для изменения данной последовательности так, чтобы в начале стояли все нулевые элементы, затем отрицательные, а затем положительные элементы последовательности.');
    Repeat
        IsCorrect := True;
        Writeln('Введите количество элементов в последовательности:');
        Try
            Readln(N);
        Except
            IsCorrect := False;
            Writeln('Ошибка! Введите число.');
        End;
        If IsCorrect And (N < 1) Then
        Begin
            IsCorrect := False;
            Writeln('Ошибка! Введите верное количество элементов.');
        End;
    Until IsCorrect;

    SetLength(Arr, N);

    For I := 0 To High(Arr) Do
        Repeat
            IsCorrect := True;
            Write('Введите элемент номер ', I + 1, ': ');
            Try
                Readln(Arr[I]);
            Except
                Writeln('Ошибка! Введите целое число.');
                IsCorrect := False;
            End;
        Until IsCorrect;

    Current := 0;

    For I := 0 to High(Arr) do
        If Arr[I] = 0 Then
        Begin
            Temp := Arr[Current];
            Arr[Current] := Arr[I];
            Arr[I] := Temp;
            Inc(Current);
        End;

    For I := Current To High(Arr) do
        If Arr[I] < 0 Then
        Begin
            Temp := Arr[Current];
            Arr[Current] := Arr[I];
            Arr[I] := Temp;
            Inc(Current);
        End;

    Write('Отсортированная последовательность: ');
    For I := 0 To High(Arr) Do
        Write(Arr[I], ' ');
    Readln;

End.