Ошибка времени выполнения: Индекс находился вне границ массива найти ошибку
var a:array [1..100] of real;
i,c,v:integer;
begin
randomize;
for i:= 1 to 100 do
begin
a[i]:=random(100);
if a[i]<0 then
c:=c+1;
if c=2 then
v:=i;
end;
writeln('2-ой отрицательный элемент- а [', v, ']=', a[v]);
end.