Найти номер последнего отрицательного элемента массива - Pascal ABC

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

Дан массив С(13).Найти номер последнего отрицательного элемента массива. Как раз не могу найти номер последнего отрицательного элемента - правильно не выдает.

program _1; 
const n=13; 
var 
c:array[1..n] of integer; a:array[1..n] of integer; 
i,k:integer; 
begin 
for i:=1 to n do 
readln(c[i]); 
k:=1; 
for i:=2 to n do 
if a[i]<0 then k:=i; 
writeln(k); 
readln; 
end.

я написал, но номер последнего отрицательного элемента не выдает. может кто поможет исправить ошибку! Спасибо!

Решение задачи: «Найти номер последнего отрицательного элемента массива»

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

const
    N = 13;
var
    c: Array[1..N] Of Integer;
    i, id: 0..N;
begin
    id := 0;
    for i := 1 to N do
    begin
        Write('c[', i, ']=');
        ReadLn(c[i]);
        if (c[i] < 0)
        then
            id := i;
    end;
    if (id > 0)
    then
        WriteLn('Hомер последнего отрицательного элемента ', id)
    else
        WriteLn('Не найдено отрицательных чисел!');
end.

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

В данном коде объявлены следующие переменные:

N - количество элементов в массиве (равное 13 в данном случае);
c - массив целых чисел;
i - индекс текущего элемента массива, идущий от 1 до N;
id - индекс последнего отрицательного элемента, идущий от 0 до N. Цель программы - найти номер последнего отрицательного элемента в массиве. В цикле for i := 1 до N происходит следующее:
1. Выводится значение c[i] (соответствующий элемент массива).
2. Чтение значения c[i] с помощью функции ReadLn(c[i]).
3. Если значение c[i] меньше нуля (то есть является отрицательным), то переменная id принимает значение i. После завершения цикла, в переменной id сохраняется индекс последнего отрицательного элемента. Затем выполняется проверка: если id больше 0, то выводится сообщение с номером последнего отрицательного элемента. В противном случае выводится сообщение о том, что отрицательных чисел не найдено.