Pascal, работа со строками

[Magenta]

Уважаемые форумчане, просьба помочь с написанием кода.
Вот задание:

Сделал это задание с циклом While и всё было бы хорошо, если не условия для выполнения работы:

Вот мой код программы:

Program Lab;
 Uses
  Crt;
 Var
    s,st,z,z1:string;
    b1,b2,b3,b4:integer;
    k:byte;
  Begin
    Clrscr;
    write('Введите строку из 12 символов: ');
    readln(s);
    write('Введите строку из трёх символов: ');
    readln(z);
    z1:=copy(z,3,1)+copy(z,2,1)+copy(z,1,1);
          b1:=Pos(z,s);
          Delete(s,b1,3);
          Insert(z1,s,b1);
          writeln(s);
          writeln(b1);
          inc(k);
             b1:=Pos(z,s);
             Delete(s,b1,3);
             Insert(z1,s,b1);
             writeln(s);
             writeln(b1);
             inc(k);
                b1:=Pos(z,s);
                Delete(s,b1,3);
                Insert(z1,s,b1);
                writeln(s);
                writeln(b1);
                inc(k);
                   b1:=Pos(z,s);
                   Delete(s,b1,3);
                   Insert(z1,s,b1);
                   writeln(s);
                   writeln(b1);
                   inc(k);
          writeln('Количество вхождений в строку = ',k);
    readln;
 end.

Т.к. я совсем начинающий, просьба помочь.

[Magenta]

Выручайте!!!

[Аватар]

s:=StringReplace(s,'123','321',rfReplaceAll);

[Stilet]

Аватар

Ее нет в классике.

Выручайте!!!

Если так извращаться то наверное:

var s:string[12],s2:string[3];
 cnt,i:integer;
begin
 Вводим строки;
 i:=pos(s2,s); delete(s,i,3); cnt:=cnt+byte(i<>0);
 i:=pos(s2,s); delete(s,i,3); cnt:=cnt+byte(i<>0);
 i:=pos(s2,s); delete(s,i,3); cnt:=cnt+byte(i<>0);
 i:=pos(s2,s); delete(s,i,3); cnt:=cnt+byte(i<>0);
 write(cnt,' раз'); readln;
end.

[Magenta]

Сообщение от Stilet

Ее нет в классике.

Если так извращаться то наверное:

var s:string[12],s2:string[3];
 cnt,i:integer;
begin
 Вводим строки;
 i:=pos(s2,s); delete(s,i,3); cnt:=cnt+byte(i<>0);
 i:=pos(s2,s); delete(s,i,3); cnt:=cnt+byte(i<>0);
 i:=pos(s2,s); delete(s,i,3); cnt:=cnt+byte(i<>0);
 i:=pos(s2,s); delete(s,i,3); cnt:=cnt+byte(i<>0);
 write(cnt,' раз'); readln;
end.

Не работает

[Magenta]

Точнее работает, но нужно ещё менять следование символов на обратный

[Stilet]

var c:char;
...
... c:=s[i]; s[i]:=s[i+2];s[i+2]:=c;

Вместо delete. Устраивает?

[Magenta]

Сообщение от Stilet

var c:char;
...
... c:=s[i]; s[i]:=s[i+2];s[i+2]:=c;

Вместо delete. Устраивает?

Да и если ввести все единицы, он будет считать всего 4 вхождения

[Stilet]

Смотри внимательнее что я написал.

[Magenta]

Сообщение от Stilet

Смотри внимательнее что я написал.

Можешь написать код, если не трудно.
Если вместо delete вставлять, он ошибку выдаёт