Частотный анализ текста

Помогите, пожалуйста.

Мне нужно написать программу, в которой пользователь задает несколько букв, на которые должны начинаться слова в тексте, текст он тоже набирает сам. Так вот, у меня получилось написать программу только для того случая, когда слова начинаются с точно таких же букв, которые вводит пользователь, но ведь нужно считать слова, начинающиеся не только на прописные, но и на заглавные буквы (или наоборот).

uses crt;
var s,alf:string;
    i,j,k,l:integer;
    p:array[1..100] of integer;
BEGIN
  clrscr;
  writeln('Введите текст');
  readln(s);
  writeln('Введите количество букв, на которые должны начинаться слова ');
  readln(k);
  writeln('Введите буквы, на которые должны начинаться слова ');
  for i:=1 to k do
    readln(alf[i]);
  l:=0;
  for i:=1 to k do
    if s[1]=alf[j] then inc(l);
  p[1]:=l;
  for j:=1 to k do begin
    l:=0;
    for i:=2 to length(s) do
      if (s[i]=alf[j]) and (s[i-1]=' ') then inc(l);
    p[j]:=l;
    write(p[j],' ');
    end;
  readln;
END.