Дан одномерный массив.найти самый минимальный элемент массива

Если массив состоит из 10 элементов то код программы:

const

 n=10; 

var

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

  i,min:integer; 

begin

for i:=1 to n do read(a[i]);     {вводишь заданный массив}

min:=32767;

for i:=1 to n do

 If a[i]<min then min:=a[i];

write(min);

end;