Ребят, помогите, пожалуйста, с Pascal

[Alyona]

Ребят, помогите, пожалуйста, с Pascal

Есть условие задачи, но возникла проблема с полями (выдает ошибку, т.к. типы полей разные). Помогите, пожалуйста, написать!:tehnari_ru_121:З


Задача:
Написать функцию, заменяющую каждые 4 пробела на *.


(Если в строке между словами 10 пробелов, то должно быть 2 звездочки и 2 пробела)

Заранее огромное спасибо!!!=*

 

[Vladimir_S]

Задача: Написать функцию, заменяющую каждые 4 пробела на *.

© "Элементарно, Ватсон!":

Const
 Sp:String='*';
 Spp:String='    ';
VAR
 S:String;
 i,i1:Byte;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 i:=0;
 Repeat
  Inc(i);
  i1:=Pos(Spp,S);
  If i1>0 then
   begin
    Delete(S,i1,4);
    Insert(Sp,S,i1);
   end;
 Until i1=0;
 WriteLn(S);
 ReadLn;
END.

 

[Alyona]

Спасибо!

Огромное спасибо, Владимир!!!
С меня шоколадка!:tehnari_ru_288: