Дан одновременный массив,состоящий из 10 эллементов.Пользователь вводит элементы массива.Ввести массив на экран в строку.Найти минимальный элемент массива. Ниже приведен рекомендованный вид экрана во время выполнения программы: Вывод минимального элемента массива Ввод элементов массива Введите 1 элемент массива: 1 Введите 2 элемент массива: 2 Введите 3 элемент массива: 3 и т.д. до 10

Program z1;
var mas:array[1..10] of integer;
var i,min:integer;
begin
for i:=1 to 10 do
begin
write(Введите ,i, элемент массива: );
readln(mas[i]);
end;
min:=mas[i];
for i:=1 to 10 do
begin
if(mas[i]min:=mas[i];
end;
writeln(Минимальный элемент: ,min);
end.