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

[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;

[Bokul]

Я искренне благодарна за помощь, но я пока новичок и нам даже не давали программки с True и False...

const
   n=5;
   mas:array[1..n] of integer=(1,2,3,4,2);
var i:byte; b:byte;
begin
i:=0;
b:=0;
repeat
  inc(i);
  if mas[i]<0 then
     b:=1;
until (i=n) or (b=1);
if b=1 then
   writeln(i-1)
else
   writeln('All elements are positive');
readln;
end.

или так

i:=1;
while (i<=n) and (A[i]>=0) do
   inc(i);

А если отрицательных элементов в массиве не будет?