Знайти номер останнього негативного числа в масиві паскаль, панове

Ось код простий і зрозумілий
У рядку №7 ми записали змінну для зберігання індексу негативного елементу.
У рядку №19 ми задаємо умову, за якої перебираються всі 10 згенерованих чисел і серед них шукається негативний, і якщо негативне число знаходиться, то його індекс (номер) заноситься в змінну K (рядок №21).
У рядку №23 записується умова: якщо змінна «K» більше 0 (тобто є негативні елементи), то на екран виводиться повідомлення (рядок №24). У зворотному випадку (якщо немає негативних елементів, і «K» так і залишиться рівним 0), виведеться повідомлення (рядок №26)

Перевірені відповіді містять інформацію, яка заслуговує на довіру. На «Знання» ви знайдете мільйони рішень, зазначених самими користувачами як кращі, але тільки перевірка відповіді нашими експертами дає гарантію його правильності.

Я не стану вказувати епітетів до свого коду, нехай він сам скаже за себе.
Алгоритм такий: переглядаємо масив від кінця до початку. І завершуємо роботу, як тільки зустрінемо негативний елемент. А якщо так і не зустрінемо до початку масиву, значить таких елементів в масиві немає.

const
n = 20; <размер массива>
var
a: array [1..n] of integer;
i: integer;
found: boolean;
begin
Randomize;
Writeln ( 'Елементи масиву');
for i: = 1 to n do begin
a [i]: = Random (21) -10; <случайное число на интервале [-10;10]>
Write (a [i]: 4)
end;
Writeln;
<собственно задание>
i: = n;
repeat
found: = (a [i]<0);
Dec (i)
until (i = 0) or found;
if found then Writeln ( 'Номер елемента дорівнює', i + 1)
else Writeln ( 'Негативних елементів немає')
end.

Тестове рішення:
елементи масиву
-3 5 -2 3 2 -2 -5 7 9 -3 1 -2 -1 -6 1 -6 2 8 7 1
Номер елемента дорівнює 16