Работа со строковыми переменными на языке PASCAL

[бургер]

Сформировать текст «Каталог интегральных микросхем» без пробелов и напечатать его. Если в полученном тексте количество букв чётное, то из полученного текста сформировать текст «Каталог транзисторов».

[Stilet]

Сформировать текст «Каталог интегральных микросхем» без пробелов

С потолка:

s:='Каталог интегральных микросхем';
while pos(' ',s)<>0 do delete(s,pos(' ',s),1);
if length(s) mod 2<>0 then writeln(s) else writeln('Каталог транзисторов');
readln;