Найти минимальный элемент массива, N=5, циклом for в паскале!!

var min: integer;
begin
min := mas[ 1 ];
for i:=2 to 5 do if mas[ i ] < min then min:=mas[ i ];
end.