С клавиатуры вводится число n, а за ним - массив из n элементов. Найдите номер последнего по счёту положительного элемента массива. Помогите пожалуйста(

const   nm = 50;{максимальная длина массива} var   i, n: integer;   a: array[1..nm] of integer; begin   Write('Введите количество элементов в массиве: ');   Readln(n);   Write('Введите элементы массива через пробел ');   for i := 1 to n do   begin     Read(a[i]);   end;   i := n;   while (a[i] <= 0) and (i > 0) do Dec(i);   if i > 0 then Writeln('Последний положительный элемент a[', i, ']=', a[i]) end. Тестовое решение: Введите количество элементов в массиве: 5 Введите элементы массива через пробел 3 -3 5 -5 -4 Последний положительный элемент a[3]=5