Составьте программу которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 20 и находится минимальный элемент массива и его индекс

Const
  n=10;
var
  i,im:integer;
  a:array[1..10] of integer;
 
begin
  Randomize;
  im:=1;
  for i:=1 to n do begin
    a[i]:=Random(21)+1;
    Write(a[i], );
    if a[i]lt;a[im] then im:=i
    end;
  Writeln;
  Writeln(Минимальный элемент a[,im,]=,a[im])
end.

Пример
20 13 16 7 9 4 21 13 2 10
Минимальный элемент a[9]=2