написать программку в 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] lt; min then min:=m[i]; // проверяем, если из массива число  меньше малого, то записываем его в минимальное

m[n]:=min;

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

write(m[i], );

end.