[lmikle]

Здесь:

a[1]:=min;

заменить на:

min:=a[1];