Massiv, Minimalnij element Опции

[Sam]

Vsem privet! Zada4a takova:
Najti v massive element s minimaljnim pozitivnim zna4eniem i jego indeks. Analizirovatj toljko elementi s neparnim indeksom!

u menja 4to-to ne idjot...

program massiv;
var
	i,num : integer;
	min : real;
         ms : array[1..6] of real;
begin
writeln ('Vvedite znachenie elementov: ');
	for i := 1 to 6 do begin
             readln(ms[i]);
             i := i+1;
         end;	
	min := ms[1];
	for i := 2 to 6 do begin
		if (ms[i] > 0) then begin
			if (ms[i] < min) then begin
				min := ms[i];
				num := i;
			end;
		end;
	end;
	writeln(min:2:2);
	writeln(num);
    readln;
end.

I jesho vapros, kak sdelatj 4tobi koli4estvo elementov v massive vvodilosj s klaviaturi v samom na4ale programmi ??

Thxx...