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

Var
 mas:array[1..100] of integer;
 min,i:integer;
begin
 for i:=1 to 10 do
  read(mas[i]);
 min:=mas[1];
 for i:=2 to 10 do
  if mas[i]<min then
   min:=mas[i];
 mas[10]:=min;
 for i:=1 to 10 do
  write(mas[i],' ');
end.