Помогите пожалуйста написать прогу и, пожалуйста, растолкуйте принцип! Определить, равна ли

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 var x := Frac(Абс(ReadReal('Введите начальное число:'))).ToString;

 var k := ReadInteger('Введите значение k:');

 var (s1, s2) := (x[3:3 + k], x[3 + k:3 + 2 * k]);

 if s1.Select(t -gt; t.ToDigit).Sum = s2.Select(t -gt; t.ToDigit).Sum then

   Println('Суммы одинаковы')

 else

   Println('Суммы не равны')

end.

Введите исходное число: -542.6327288323

Введите значение k: 3

Суммы не одинаковы