Указание. Осуществите поиск отрицательных элементов. Если отрицательный элемент найден, поместите в переменную k его индекс и прервите цикл командой break, тогда в переменной k останется индекс первого из найденных элементов.

Чтобы найти индекс первого отрицательного элемента массива a, просматривайте элементы по порядку и при первом отрицательном значении присвойте его индекс переменной k, после чего выполните break.

k := 0;
for i := 1 to n do
  if a[i] < 0 then
  begin
    k := i;
    break;
  end;

Значение k = 0 означает, что отрицательных элементов нет; иначе k содержит индекс первого отрицательного элемента.