求教过程无法实现是过程问题还是调用问题

Question

procedure TForm1.switch(a,b:integer);
var
m:integer;
begin
   if a<b then
     begin
      m:=a;
      a:=b;
      b:=m;
     end;
   end;
procedure TForm1.Button1Click(Sender: TObject);
var
 j,k:integer;
begin
 j:=StrToInt(Edit1.Text);
 k:=StrToInt(Edit2.Text);
 switch(j,k);
 Edit1.Text:=IntToStr(j);
 Edit2.Text:=IntToStr(k);end;end.
 [Hint] Unit1.pas(39): Value assigned to 'b' never used
[Hint] Unit1.pas(39): Value assigned to 'a' never used
[Hint] Unit1.pas(39): Value assigned to 'm' never used
程序运行结果无法实现j与k的值交换 提示 a,b,m没有被使用到 
请教出在哪儿

Answer 1

procedure TForm1.switch(a,b:integer);
改成
procedure TForm1.switch(var a,b:integer);传值 和 传指针 的区别，可以百度google一下

Answer 2

switch(var a:integer;var b:integer)