дан одномерный массив.отыскать самый малый элемент массива

program zz1;

const n = 14;  //задаем количество частей в массиве

var  i, min:integer; // задаем переменные целого типа

m:array [1..n] of integer;

begin

for i:=1 to n do // записываем в массив числа случайным образом

m[i]:=random(201)-60;

for i:=1 to n do  //выводим массив на экран

write(m[i], );

writeln;    // переходим на новейшую строчку для вывода ответа

min:=1000000; //задаем изначальное значение для малого элемента

for i:=1 to n do  // организуем цикл, в котором переберем все числа массива

if m[i] lt; min then min:=m[i]; //проверяем, если число из массива меньше минимального, то записываем его в минимальное

write(малый элемент = , min);  // выводим ответ

end.