В заданном тексте найдите количество 4-буквенных слов и каждое четное из них замените на сочетание SsSs

const
  dividers=[' ',';','.',':','=','+'];{íàâñÿêèé ñëó÷àé íå òîëüêî äëÿ ïðîáåëîâ}
var
  a,b:array[1..128]of string;
  s,temp1,temp2:string;
  i,max1,max2,woc:integer;
  fl:boolean;
{îñíîâíàÿ ïðîãðàììà}
begin
  readln(s);
  max1:=0;
  max2:=0;
  woc:=0;
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
    begin
      if temp2<>'' then
      begin
        inc(max2);
        b[max2]:=temp2;
        temp2:=''
      end;
      temp1:=temp1+s[i];
    end;
    if (s[i] in dividers) or (i=length(s)) then
    begin
      if temp1<>'' then
      begin
        inc(max1);
        a[max1]:=temp1;
        temp1:=''
      end;
      temp2:=temp2+s[i]
    end;
  end;
  {âûâîäèì êîëè÷åñòâî 4-õ áóêâ. ñëîâ}
  for i:=1 to max1 do
    if length(a[i])=4 then
      inc(woc);
  writeln(' äàííîé ñòðîêå êîëè÷åñòâî 4-õ áóêâåííûõ ñëîâ: ',woc);
  {âîññòàíàâëèâàåì ñòðîêó}
  for i:=1 to max1 do
  begin
    if i<=max1 then
    begin
      if length(a[i])=4 then
        inc(woc);
      if (woc mod 2 = 0) and (woc<>0) and (length(a[i])=4) then
        write('SsSs')
      else
        write(a[i]);
    end;
    if i<=max2 then
      write(b[i])
  end;
  writeln
end.

uses
  crt;
var
  s:string;
{процедура замены строки}
procedure WS(s:string);
const
  dividers=[' ',';','.',':','=','+'];{навсякий случай не только для пробелов}
var
  temp:string;
  i,c:integer;
begin
  c:=0;
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
    begin
      if length(temp)=4 then
      begin
        inc(c);
        if c mod 2 = 0 then
          if i<>length(s) then
          begin
            s[i-4]:='S';
            s[i-3]:='s';
            s[i-2]:='S';
            s[i-1]:='s'
          end
          else
          begin
            s[i-3]:='S';
            s[i-2]:='s';
            s[i-1]:='S';
            s[i]:='s'
          end
      end;
      temp:=''
    end;
  end;
  writeln('В данной строке 4-х буквенных слов: ',c);
  writeln(s)
end;
{основная программа}
begin
  writeln('Введите строку...');
  readln(s);
  WS(s)
end.