За 4 3составте программу ,которая определяет ,какое из 2-х слов более длиннее и выводит это слово 4,с клавиатуры вводят 2 слова .составте программу, которая выводит на экран слова в обратном порядке 5,с клавиатуры вводят слово .составте программу которая выводит количество символов в нем 6,составте программу ,которая определяет какое из 2-х введенных с клавиатуры слов короче ,и выводит это слово

Со строками можно работать так  же, как и с элементами массива, т.  е. мы можем обратиться к любому символу строки, как к элементу, можем сравнивать строки, складывать и вычитать( последние две операции здесь нам не понадобятся)  №3.  program ex3; var a,b: string; k,n,i: integer; {ввод исходных данных}    begin    writeln('введите первое слово');     readln(a);     {компьютер читает введенное число a} writeln('введите второе слово');     readln(b);       {компьютер читает введенное число b} k: =0;     {обнуляем переменные k и n, это будут счетчики в данной программе} n: =0;   for i: =1 to length(a) do { проверяем символы от первого    до конца строки}   k: =k+1;   {если в строке находится символ, то переменная k увеличивается на 1}   for i: =1 to length(b) do    {аналогично}    n: =n+1; if k> n    {проверяем, если количество символов в первой строке больше, чем количество символов во второй, то выводим a(первое слово), иначе b (второе слово)} then  writeln(a)  else      writeln(b);     end.№4program ex4; var a,b: string; i: integer;   begin    writeln('введите первое слово');     readln(a);     writeln('введите второе слово');     readln(b);     k: =0;     n: =0;   for i: = length(a) downto 1 do    {просматриваю строку в обратном порядке и вывожу каждый символ на экран}      write(a[i]);     writeln;     for i: =length(b) downto 1 do    {просматриваю строку в обратном порядке и вывожу каждый символ на экран}  write(b[i]);   end. №5program ex3; var a: string; k,n,i: integer; {ввод исходных данных}    begin    writeln('введите слово');       readln(a);     {компьютер читает введенное число a} k: =0;     {обнуляем переменные k , это будут счетчики в данной программе} for i: =1 to length(a) do { проверяем символы от первого    до конца строки}    k: =k+1;   {если в строке находится символ, то переменная k увеличивается на 1} writeln(k); end. №6. аналогичная №3, за исключением условия в конце.   program ex3; var a,b: string; k,n,i: integer; {ввод исходных данных}    begin    writeln('введите первое слово');       readln(a);     {компьютер читает введенное число a} writeln('введите второе слово');       readln(b);       {компьютер читает введенное число b} k: =0;     {обнуляем переменные k и n, это будут счетчики в данной программе} n: =0;   for i: =1 to length(a) do { проверяем символы от первого    до конца строки}    k: =k+1;   {если в строке находится символ, то переменная k увеличивается на 1}   for i: =1 to length(b) do    {аналогично}    n: =n+1; if k< n    {проверяем, если количество символов в первой строке меньше, чем количество символов во второй, то выводим a(первое слово), иначе b (второе слово)} then    writeln(a)  else      writeln(b);       end.

Всистемное программное обеспечение компьютера входят так называемые системные программы, которые в свою очередь делятся на: 1. операционнуюсистему 2. утилиты 3. драйверы хотя драйверы можно наверное отнести к утилитам, к которым относятся такие программы, как антивирусы, программы контроля, программы восстановления системы и  т.п. надеюсь мой ответ вам . удачи!