Дан массив размера N. Вывести предпоследний отрицательный элемент массива и его номер

program Project1;
const
  maxelem = 100;
var
  a: array [1..maxelem] of integer; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i: integer; { Вспомогательные переменные для организации циклов.}
  k: integer; { Переменная для подсчета отрицательных элементов}
  index: integer; {Переменная для хранения значения индекса предпоследнего отрицательного элемента}
begin
  write('Введите значение максимального количества вводимых элементов массива: ');
  Readln(n);
  for i:= 1 to n do
    begin
      write('Введите значение ',i,' элемента: ');
      Readln(a[i]);
    end;
  writeln('Исходный массив: ');
  for i:= 1 to n do
      write(a[i]:5);
  writeln;
 
  k:= 0;
  for i:= n downto 1 do
    if a[i] < 0 then
      begin
        inc(k);
        if k = 2 then
          index:= i;
      end;
 
  if k = 0 then
    writeln('В массиве нет элементов с отрицательным значением.')
  else
    if k = 1 then
      writeln('В массиве только один элемент с отрицательным значением.')
    else
      writeln('Предпоследний элемент с отрицательным значением: а[',index,'] = ',a[index]);
 
  Readln;
end.