Как будет выглядеть действие из каждой тройки букв удали среднюю??
Delete (Str, K+1, 1);
K := K + 1;
вот так или нет?
паскаль