declare @ChronFio table
(ChronFioId INT IDENTITY(1,1),
PersonId INT,
[Date] Date,
Fam VARCHAR(50),
Nam VARCHAR(50),
Mid VARCHAR(50))

INSERT INTO @ChronFio
           ([PersonId]
		   ,[date]
           ,[Fam]
           ,[Nam]
           ,[Mid])
     VALUES
(1,'19800101','Иванова','Татьяна', 'Ивановна'),
(1,'19920101','Петрова','Татьяна', 'Ивановна'),
(1,'19950101','Моськина','Татьяна', 'Ивановна'),
(2,'19950101','Мартынов','Иван', 'Петрович'),
(2,'20100101','Гузеев','Иван', 'Михайлович'),
(3,'19950101','Добров','Петр', 'Юрьевич'),
(3,'20000101','Добров','Петр', 'Юревич');

with a as
(
 select
  PersonId, Date, Fam, Nam, Mid,
  lag(Fam) over (partition by PersonId order by Date) as Fam__prev,
  lag(Nam) over (partition by PersonId order by Date) as Nam__prev,
  lag(Mid) over (partition by PersonId order by Date) as Mid__prev
 from
  @ChronFio
),
b as
(
 select
  PersonId,
  max([date]) as [date],
  string_agg(case when Fam = Fam__prev then null else Fam end, ', ') within group (order by [date] desc) as Fam__agg,
  string_agg(case when Nam = Nam__prev then null else Nam end, ', ') within group (order by [date] desc) as Nam__agg,
  string_agg(case when Mid = Mid__prev then null else Mid end, ', ') within group (order by [date] desc) as Mid__agg
 from
  a
 group by
  PersonId
)
select
 PersonId, date,
 d.Fam__left + e.Fam__right,
 d.Nam__left + e.Nam__right,
 d.Mid__left + e.Mid__right
from
 b cross apply
 (select cast(0x7fffffff as int)) x(v) cross apply
 (
  select
   nullif(charindex(',', b.Fam__agg), 0),
   nullif(charindex(',', b.Nam__agg), 0),
   nullif(charindex(',', b.Mid__agg), 0)
 ) c(Fam__p, Nam__p, Mid__p) cross apply
 (
  select
   left(b.Fam__agg, isnull(c.Fam__p - 1, x.v)),
   left(b.Nam__agg, isnull(c.Nam__p - 1, x.v)),
   left(b.Mid__agg, isnull(c.Mid__p - 1, x.v))
 ) d(Fam__left, Nam__left, Mid__left) cross apply
 (
  select
   isnull('(' + ltrim(replace(substring(b.Fam__agg, c.Fam__p + 1, x.v), ',', ';')) + ')', ''),
   isnull('(' + ltrim(replace(substring(b.Nam__agg, c.Nam__p + 1, x.v), ',', ';')) + ')', ''),
   isnull('(' + ltrim(replace(substring(b.Mid__agg, c.Mid__p + 1, x.v), ',', ';')) + ')', '')
 ) e(Fam__right, Nam__right, Mid__right);