Заданы массивы А и В из N чисел (N=10) случайным образом. Сформировать новый массив, каждый элемент которого равен минимальному

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

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

mina, minb, i: integer;

min: array[1..2] of integer;

begin

randomize;

mina:=1;

minb:=mina;

for i:=1 to 10 do a[i]:=random(100);

for i:=1 to 10 do b[i]:=random(100);

for i:=2 to n do  if a[i]<a[min] then mina:=a[i];

min[1]:=mina;

min[2]:=minb;

end.