Дана последовательность чисел. Отыскать в ней меньшее число.

program zz1;
const n = 10; // задаем количество чисел в последовательности
var i, min:integer; // задаем переменные целого типа
m:array [1..n] of integer;
begin
for i:=1 to n do // организуем цикл, в котором введем с клавиатуры n заданных чисел последовательности
read(m[i]);
min:=1000000; //задаем начальное значение для малого числа
for i:=1 to n do // организуем цикл, в котором переберем все числа последовательности
if m[i] lt; min then min:=m[i]; //проверяем, если число из последовательности меньше малого, то записываем его в малое
write(малое число в последовательности = , min); // выводим ответ
end.