Помогите пожалуйста с задачей по программированию. В данном тесте подсчитать количество

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ReadlnString('-gt;').ToWords;
  var k:=0;
  for var i:=0 to a.Length-1 do
    if a[i].Length=4 then begin
      k+=1;
      if k.IsEven then a[i]:='SsSs'
      end;
  Writeln('Четырехбуквенных слов: ',k);
  var s:=a.JoinIntoString(' ');
  Writeln(s)
end.

Пример
-gt; Мама мыла раму Тамара ела кашу а Даша игралась в мяч
Четырехбуквенных слов: 5
Мама SsSs раму Тамара ела SsSs а Даша играла в мяч