Дана непустая последовательность различных натуральных чисел, за которой следует ноль. Определить порядковый номер наименьшего из них — Pascal(Паскаль)

uses crt;
var a,mn,i,imn:integer;
begin
clrscr;
writeln('Введите не менее двух натуральных чисел, окончание вода 0:');
repeat
readln(mn);
until mn>0;
i:=1;
imn:=1;
repeat
 repeat
 readln(a);
 until a>=0;
 i:=i+1;
 if (a<mn)and(a>0) then imn:=i;
until a=0;
writeln('Номер минимального=',imn);
readln
end.