Tìm BCNN (a,b) trong Pascal

Viết chương trình tìm BCNN (a,b) (a,b < 40 000)

var a,b:longint;f:text;
{--- Chuong trinh con tim BCNN ----------}
function BCNN(a,b:longint):longint;
var max,i:longint;
begin
  a:=abs(a);
  b:=abs(b);
  if (a=0) or (b=0) then BCNN:=0 else
  begin

    if a>=b then max:=a else max:=b;
  	i:=1;
    while (max*i mod a<>0) or (max*i mod b<>0) do i:=i+1;

      BCNN:=max*i;
  end;
end;
{----Than chuong trinh chinh ------}
begin
{----Doc file ----}
    assign(f,'BCNN.inp'); reset(f);
    read(f,a,b);close(f);
{----Mo file de ghi----}
    assign(f,'BCNN.out'); rewrite(f);

  write(f,BCNN(a,b));

close(f);
end.