Var str1,str2,str3 str4:string[25];          str1:='Дима сдал';
         str2:='на отлично';
         str3:='экзамен';
         str4:= str1+'_ ' + str2+'_ '+ str3; '_ ' – Вставка пробела в строку

2. str1:='AB CD EF GH';
    str2:='Сегодня прекрасный день';
     k1:=length(str1);
     k2:=length(str2);

3.   str1:='АБВГДЕЖЗИЙКЛ';
         str2:='ABCDEFGH';
         str3:=copy(str1,5,3);
         writeln(str3);
         writeln(copy(str2,1,4));

4. str1:='абвгдежзийкл';
      delete(str1,2,5);
      writeln(str1);

5. str1:='abcdef';
      str2:='ABCDEF';
      insert(str1,str2,5);

6. str1:='АБВГДЕЖЗИЙКЛ';
      str2:='БВГДЕЖЗИЙКЛ';
      k1:=pos(str2,str1);
      k2:=pos(str1,str2);  

7.    str1:='АБВГДЕЖЗИЙКЛ';
         str2:='ABCDEFGH';
         str3:=copy(str1,5,3);
         writeln(str3);
         writeln(copy(str2,1,4));

8. str1:='абвгдежзийкл';
      delete(str1,2,5);
      writeln(str1).