Untitled

// Mask changer fucntion *BEGIN*
function mask(S,T:string):string;
var
  D1,D2:integer;
begin
  D1:=pos('.',S);
  delete(S,D1,1);
  D2:=pos('.',S);
  delete(S,D2,1);
  inc(D2,1);
  S:=copy(S,D1,D2-D1-1);

  D1:=pos('.',T);
  delete(T,D1,1);
  D2:=pos('.',T);
  insert('.',T,D1);
  delete(T,D1+1,D2-D1);
  insert(S,T,D1+1);
  result:=T;
end;
// Mask changer fucntion *END*