Составить программку,отыскать малое значение элемента массива

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.