Даны два предложения.Подсчитать общее количество букв в них - Turbo Pascal

Формулировка задачи:

Товарищи, задача следующая: Даны два предложения. Найти общее количество букв в них. Определить функцию для расчета количества букв в предложении. Есть код для подсчёта букв Н в предложениях

var
    s1,s2: string;
    n1,n2: integer;
    c: char;
function LiteraCount(str: string; ch: char): Integer;
var
  i, n: integer;
begin
  n:=0;
  for i:= 1 to Length(str) do
    if str[i] = ch then n:= n + 1;
  LiteraCount := n;
end;
begin
       Writeln('Vvedite bukvu:');    Readln(c);
       Writeln('Vvedite stroku 1:'); Readln(s1);
       n1:=LiteraCount(s1,c);
       Writeln('Vvedite stroku 2:'); Readln(s2);
       n2:=LiteraCount(s2,c);
       Writeln(n1+n2);
Readln;
end.

Что в нём изменить,чтоб программа считала общее количество букв в предложениях?

Решение задачи: «Даны два предложения.Подсчитать общее количество букв в них»

Листинг программы

  if st[i] in rl+el then

Объяснение кода листинга программы

Вводится два предложения в переменные st и rl.
Создается пустая строка el.
Для каждого символа в предложении st выполняется проверка: если символ является одним из символов строки rl, то он добавляется в строку el.
После обработки всех символов в предложении st, выводится длина строки el.