С МИРА «ЧЕРЕПАХА» создайте рисунки.

//PascalABC v3.1

var s: string;

procedure repAll(var s: string; wOld, wNew: string);

var res: string;

    p, len: integer;

begin

  len:= Length(wOld);

  res:= '';

  while Length(s) > 0 do begin

    p:= Pos(wOld, s);

    if p = 0 then begin res:= res + s; break; end;

    if p > 1 then res:= res + Copy(s,1,p-1);

    res:= res + wNew;

    if p+len > Length(s) then

         s:= ''

    else s:= Copy(s,p+len,Length(s));

  end;

  s:= res

end;

begin

  readln(s);

  repAll(s, 'СО', 'ТУ');

  writeln(s)

end.

Тестовое решение:

СОК СОК СОК КОК ПОК

ТУК ТУК ТУК КОК ПОК

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

begin
  var a:=ReadArrInteger('Введите 35 целых чисел:',35);
  a.OrderBy(x->x).Println.Reverse.Println
end.

Пример
Введите 35 целых чисел: 57 -31 -77 38 -22 39 -49 -85 22 46 -48 -5 46 -50 67 86 31 -90 -29 37 60 -89 31 -19 -31 -46 81 -56 -34 -33 -33 -59 -88 -25 83
-90 -89 -88 -85 -77 -59 -56 -50 -49 -48 -46 -34 -33 -33 -31 -31 -29 -25 -22 -19 -5 22 31 31 37 38 39 46 46 57 60 67 81 83 86
86 83 81 67 60 57 46 46 39 38 37 31 31 22 -5 -19 -22 -25 -29 -31 -31 -33 -33 -34 -46 -48 -49 -50 -56 -59 -77 -85 -88 -89 -90