Функции для строковых переменных

Сегодня мы продолжили работу со строками. Программа, иллюстрирующая работу некоторых функций со строковыми переменными.

program Line_2;
  var
  S: String;
  Rez, P: integer;
  S2: string;
begin
  writeln ('Введите строку ');
  readln (S);
  Rez:=length(S);
  writeln ('Длина строки: ',Rez);
  Delete (S,5,5);
  writeln (S);
  S2:='А';
  P:=Pos(S2, S);
  writeln (P);
  Insert (S2,S,3);
  writeln (S);
end.

Домашнее задание (принимается как всегда в любом удобном для вас виде).

№3. Дана строка. Подсчитать в ней количество вхождений букв r, t, k.

№6. Дана строка символов, среди которых есть двоеточие (:). Определить, сколько символов ему предшествует.

Строковые переменные

Дорогие друзья! Привожу пример нашей первой программы на работу со строками.

program Line;
 var
  Name1: string[20];
  Name2: string[20];
  Title: string[40];
  Rez: string [70];
begin
 Name1:='Глебова';
 Name2:=' Катя';
 Title:=Name1+Name2;
 writeln (Title);
 Name1:='Кондратьев';
 Name2:='Иванов';
 
???

end.

Домашнее задание. Дописать программу,чтобы на экране было сообщение о том, какая фамилия идёт раньше по алфавиту.