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

const
n=100;
var
x:array[1..n] of real;
i,m,k:integer;
min:real;
BEGIN
readln(m);
i:=1;
 while i<m do begin
readln(x[i]); inc(i); end;
min:=x[1];
 
i:=1; while i<m do
 begin   if min>x[i] then begin min:=x[i]; k:=i; end; inc(i); end;
   writeln('минимальный элемент = ', min:8:3);
   writeln('его номер в последовательности ', k);
  end.