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

[Sos1]

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

[Chudo4258]

readln(n);
min:=n;
i:=1;
j:=1;
while n<>0 do
 begin
  readln(n);
  inc(i);
  if n<min then begin min:=n; j:=i; end;
 end;
writeln(j);

[Sos1]

спасибо Большое