Дан массив из n элементов. найти наименьший элемент массива. написать в паскале абс

Program FindMin;
const n = 5;
var
min,i:integer;
a:array[1..n] of integer;
begin
     for i:=1 to n do   
         readln(a[i]);
min:=a[1];
for i:=2 to n do
    if a[i]<min then 
        min:=a[i];
Writeln('Min ',min);
end.