написать программу в pascal: заменить последний элемент массива минимальным (размерность массива=10)

program zvvz1;

const n = 10; / / задаем в массиве количество элементов

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:=10000000; / / задаем значение начальное для элемента минимального

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

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

m[n]:=min;

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

write (m[i],' ');

end.