дана непустая последовательность различных натуральных чисел , за которой следует 0. Определить порядковый номер наименьшего из них.

Pascal var   min,imin,a,i : integer;    begin  read (a);  i :=1;  min := a;  imin := i; while a <> 0 do   begin    if a < min then     begin     min := a;     imin := i;    end;   i := i +1;   read (a);      end;    writeln ('min = ',min,' num = ',imin);  end.