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

var a:array[1..100000000] of integer; mini,minz,i,n:integer; begin Write('Введите размер массива - '); 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]0) then    begin     minz:=a[i];     mini:=i;    end;  end; writeln('Значение минимального элемента массива - ',minz,'. Индекс - ',mini); end.