Знаходження мінімального елемента у масиві

Дано одновимірний масив, що містить н дійсних чисел. Знайти у масиві мінімальний елемент.
program masiv;
var i,n,e: integer;
m: array [1..10000] of real;
begin
writeln ('vvedit chislo');
readln (n);
for i:=1 to n do
readln (m[i]);
e:=1;
for i:=2 to n do
begin
if m[i]<m[e] then e:=i;
end;
writeln (m[e]:2:2);
readln
end.