New Function ?

[b]Could one realize this function?
[/b]
[b]Combine vars with the same type name[/b]

[b]var[/b]
  I: Integer;
  J: Integer;
  K: Integer;
[i]// becomes:[/i]
[b]var[/b]
  I, J, K: Integer;