В массиве из 10 целых чисел найти наименьшие элементы и поменять местами с последним элементом — Pascal(Паскаль)

Program Primer2;
 Uses Crt;
 Const k=10;
 Type TMass=Array[1..k] of Integer;
 var m:TMass;
 Procedure Vvod;
 var i:Integer;
 begin
   For i:=1 to k do
     begin
       Write('m[',i,']=');
       Readln(m[i]);
     end;
 end;
 Function min:Integer;
 var d,i:Integer;
 begin
   d:=m[1];
   For i:=2 to k do
    if m[i]<d then d:=m[i];
   min:=d;
 end;
 Procedure Zamena;
 var t,i:Integer;
 begin
   t:=min;
   If t<>m[10] then
    begin
      For i:=1 to k do
        if t=m[i] then m[i]:=m[10];
      m[10]:=t;
    end;
 end;
 Procedure Vivod;
 var i:Integer;
 begin
   For i:=1 to k do Write('m[',i,']=',m[i]);
 end;
 begin
   ClrScr;
   Vvod;
   Zamena;
   Vivod;
   Readkey;
 end.