Вывести отрицательные элементы массива - Pascal

Формулировка задачи:

Дан массив из 10 целых чисел, вывести отрицательные элементы массива

что же так долго

Решение задачи: «Вывести отрицательные элементы массива»

Листинг программы

const
    n = 10;
var
    ar: Array[1..n] Of ShortInt;
    i: 1..n;
begin
    Randomize(); Write('Original array:');
    for i := 1 to n do
    begin
        ar[i] := Random(199) - 99;
        Write(ar[i]:4);
    end;
    WriteLn; Write('Negative elements:');
    for i := 1 to n do
        if (ar[i] < 0)
        then
            Write(ar[i]:4);
end.

Объяснение кода листинга программы

Объявляется константа n со значением 10, которая определяет размер массива.
Объявляется переменная ar типа Array[1..n] Of ShortInt, которая будет представлять собой массив размером 10.
Объявляется цикл for от 1 до n, который будет выполняться 10 раз.
Внутри цикла каждый элемент массива ar инициализируется случайным числом от -99 до 99 с помощью функции Random(199) - 99.
Выводится значение каждого элемента массива с помощью функции Write(ar[i]:4).
После выполнения цикла выводится символ новой строки с помощью функции WriteLn.
Выводится сообщение Negative elements: с помощью функции Write.
Запускается второй цикл for от 1 до n, который будет выполняться 10 раз.
Внутри цикла проверяется условие (ar[i] < 0), если оно истинно, то выводится значение элемента массива с помощью функции Write(ar[i]:4).
После выполнения второго цикла выводится символ новой строки с помощью функции WriteLn.
Программа завершается.