Дан массив из n элементов. Отыскать меньший элемент массива. Написать в

program zz1;
const n=10; //задаем количество частей в массиве
var mas:array[1..n] of integer;
i,min:integer;
begin
for i:=1 to n do
mas[i]:=random(20)+1; //вводим числа в массив рандомно от 1 до 20
for i:=1 to n do
write(mas[i], ); //выводим числа из массива на экран
writeln; //переходим на новейшую строку для вывода
min:=1000000; //задаем изначальное значение малого числа (очень вероятное)
for i:=1 to n do
if mas[i]lt;min then min:=mas[i]; //проверяем, если число из массива меньше минимального, то записываем его в минимальное
write( малый элемент массива - ,min); //выводим ответ

end.