помогите пожалуйста как можно быстрее ​

Программа:

//Решение в 1 строчку:

begin writeln('Информационные технологии'.Length,'; ','Информационные технологии'.Split('а').Length-1,'; ','Информационные технологии'.Split(' ')[1],'; ','Информационные технологии'.Split('ц')[0]+'тика');end.

//Приведу другое решение задачи:

program znanija_com;

const s='Информационные технологии';

function str_count_characters(str:string; key:string:=''):integer;

var k,i,n: integer;

begin

 n:=0;

 k:=Length(str);

 if(key='')

   then begin

          str_count_characters:=k;

          exit;

        end;

 for i:=1 to k

   do if(str[i]=key) then n:= n+1;

 str_count_characters:=n;

end;

begin

 writeln('Длина строки: ',str_count_characters(s));

 writeln('Количество букв а: ',str_count_characters(s,'а'));

 writeln('Слова: ',s.Split(' ')[1],', ',s.Split('ц')[0]+'тика');

end.