в одномерном массиве произвольных чисел найти значение и индекс минимального элемента из положительных

ведь он генерирует от 0 до N

Переделать?

все теперь работает

Обратилась к брату. Поставила min:=2 и все заработало. 

А оформляла-то по-своему, задавала через random,а не randomaze

vara:array[1..100000000] of integer;mini,minz,i,n:integer;beginWrite('Введите размер массива - ');readln(n);write('Введите элементы массива - ');for i:=1 to n do read(a[i]);i:=1;while minz=0 do begin  i:=i+1;  if a[i]>0 then   begin    mini:=i;    minz:=a[i];   end;  end;for i:=1 to n do begin  if (a[i]<minz) and (a[i]>0) then   begin    minz:=a[i];    mini:=i;   end; end;writeln('Значение минимального элемента массива - ',minz,'. Индекс - ',mini);end.