расчета элементов., зависает программка Опции

[Konsuela]

Задание такое:
Составить подпрограмму для определения числа элементов одномерного массива, предшествующих его первому отрицательному элементу.
Пишу программу, а после набора массива она зависает... может проблема в самой функции?

function kol (A: mass;  n: integer ):integer;
var
  i, j:integer;
  k:integer;
begin
k:=0;
 for i:= 1 to n do
  begin
    repeat
    k:=k+1;
  until A[i]<0;
  end;

kol:=k;

end;

[Konsuela]

Глупых вопросов не бывает, но зато бывает лень заглянуть в справку. Набери в Паскале inc, выдели его и нажми Ctrl+F1.

Ой, спасибо большое! Заработало наконец-то. 

Выделенной код (не мой) не обрабатывает всех ситуаций...

Это приняла во внимание... А всё-таки вот эта inc(i)- перебирает мой массив?