Дан призвольный массив состоящий из чисел а1=5 а2=3 а3=8 а4=2 а5=10 а6=7 а7=20 а8=1 нужно написать прграмму и найти минимальное

program minimum_v_massive_chisel; var a:array[1..8] of integer; function min(x,z:integer):integer;//функция нахождения минимума из двух чисел begin if(x>z) then min:=z else min:=x; end; begin a[1]:=5;//введение значений в массив a[2]:=3; a[3]:=8; a[4]:=2; a[5]:=10; a[6]:=7; a[7]:=20; a[8]:=1; writeln(min(min(min(a[1],a[2]),min(a[3],a[4])), min(min(a[5],a[6]),min(a[7],a[8])))) ;//нахождение ответа end.