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

var 

  a: array [1..10] of integer;

  i, min, MinIndex: integer;  min - значение малого элемента массива, MinIndex - индекс минимального элемента массива

begin

  min:= 20;

  write('Начальный массив:  ');

  for i:= 1 to 10 do

  begin

    a[i]:= random(19) + 1;

    write(a[i], '  ');

    if a[i] lt; min then 

    begin

      min:= a[i]; 

      MinIndex:= i;

    end;

  end;

  writeln;

  write('Минимальный элемент массива:  a[', MinIndex, '] = ', min);

  writeln;

end.