написать программу в 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.