Дан массив размера n. вывести минимальный элемент данного массива и его номер.

Const N = 10;
Var m : array[1..N] of Integer;
i,k : Byte;
Begin
  k:=1;
  For i:=1 to N do
  Begin
    m[i]:=Random(100);
    If m[i]<m[k] then k:=i;
  end;
  Writeln('Value: ',m[k],'  Index: ',k);
end.