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

program minimum_v_massive_chisel;
var a:array[1..8] of integer;
function min(x,z:integer):integer;//функция нахождения минимума из 2-ух чисел
begin
if(xgt;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.