Дан массив целых чисел. Найти минимальный элемент массива и его порядковый номер - Pascal

Const nmax=100;
Var X:array[1..nmax] of integer;
    i,n,imin:integer;
Begin
    Randomize;
    Repeat
     write('Введите 1<=N<=',nmax,': ');
     readln(n);
    Until n in [1..nmax];
    imin:=1;
    For i:=1 to n do
    Begin
      X[i]:=random(31)-15;
      write(X[i]:4);
      if X[i]<X[imin] then imin:=i;
    End;
    writeln;
    writeln('Min = ',X[imin],' его порядковый номер = ',imin);
    readln;
End.