下列程序的功能是：用递归方法求两个整数a, b的最大公约数。请将程序补充完善。

program yzkx2016_5; 
 var m,n:integer;
 function gcd(a,b:integer):integer; 
 var r:integer;
 begin
   r:=  a mod b  ;
   if r=0 then gcd:=b
   else gcd:=gcd(b,r)
 end; 
begin 
  read (m, n);
  writeln(' gcd(',' ,',n,')='，gcd(m，n));
end.