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

//Pascalvar  A: array [1..10] of byte;  i, Min, MinID: byte;begin  randomize;  Min := 100;  for i := 1 to 10 do  begin    A[i] := random(20) + 1;    if A[i] < Min then    begin      Min := A[i];      MinID := i;    end;  write(A[i], ' ');  end;  writeln;  writeln('Минимальный элемент A[',MinID,'] = ', Min);  readln;end.