Вводить числа до тех пор пока не пудет введено положительное найти номер минимального. (решать в паскале)

Var a,i,min,mina:integer;
begin
 i:=0;
 repeat
   write ('Number = ');
   readln(a);
   inc(i); 
   if (a<0) and (a<mina) then
     begin 
        min:=i;
        mina:=a;
     end;
 until a>0;
 writeln ('Index min: ',min);
 readln;
end.