Путем перестановки букв расшифруйте слова, относящий к информатике

1. Цилиндр, конус и шар;
2. Конический хвостовик инструмента (сверло, зенкер, фреза, развёртка, зажимной патрон, электрод контактной сварки) и коническое отверстие соответствующего размера (гнездо) в шпинделе или задней бабке, например, токарного станка;
3. Сфера представляет собой совокупность информации, информационной инфраструктуры, субъектов, осуществляющих сбор, формирование, распространение и использование информации, а также системы регулирования возникающих при этом общественных отношений;
5.
1. Выбрать создание детали (Файл-->Создать-->Деталь).
2. Выбрать в дереве модели плоскость x-y.
3. Включить режим эскиз (кнопка панели управления ).
4. На геометрической панели построения выбрать ввод окружность.
5. Ввести параметры: координаты центра - 0,0; диаметр окружности - 35 мм.
6. Закончить редактирование эскиза (повторно нажать на кнопку «эскиз»).
7. На панели редактирования детали выбрать Операция выдавливания.
8. В окне Параметры на вкладке Операция выдавливания установить параметры: прямое направление; расстояние 50 мм (высота цилиндра)и нажать кнопку Создать.
9. На экране должно появиться изображение цилиндра.

Рекурсивный подход.(Символы тоже удаляет)
function grad(s:string):string;
var
i:byte;
detect:boolean;
begin
while i < length(s) - 2 do
begin
inc(i);
if (s[i] = s[i+1]) and (s[i] = s[i+2]) then {проверка последовательности из 3 елементов}
begin
delete(s,i,3); {если да - удаляем их}
detect:=True; {логическая переменная регистрирует изменение строки}
end;end;
if detect = True then
s:=grad(s); {если строку изменили , проверяем не появились ли там еще последовальности}
grad:=s; 
end;

var
s:string;
begin
readln(s);
writeln(grad(s));
end.