Задание на текст

uses crt;
const rz=[' ',',','.','?','!',';',':','-'];{разделители, на Ваше усмотрение}
var s,sl:string;
    i,p,kb,kp:byte;
    w,b:char;
begin
clrscr;
writeln('Введите текст:');
readln(s);
repeat{цикл выбора в меню}
clrscr;
writeln('Выберите вариант:');
writeln('1-поиск слова в тексте');
writeln('2-подсчет слов на заданную букву');
writeln('3-подсчет числа пробелов');
writeln('другое - выход');
readln(w);{читаем выбор}
case w of{в зависимости от него}
'1':begin
    clrscr;
    writeln(s);
    writeln('Введите слово для поиска:');
    readln(sl);
    p:=pos(sl,s);{позиция начала сочетания букв слова}
    if(p>0){если есть}
    and((s[p-1] in rz)or(p=1)){и перед ним разделитель или оно первое}
    and((s[p+length(sl)] in rz)or(p+length(sl)>length(s))){и за ним разделитель или оно последнее
     это для того чтобы правильно искать, например мы ищем слово сто, 
     а в тексте есть слово "стол" или "просто"}
    then writeln('Слово ',sl,' в тексте есть')
    else writeln('Слова ',sl,' в тексте нет');
    readln;
    end;
'2':begin
    writeln(s);
    writeln('Введите букву для поиска:');
    readln(b);
    kb:=0;
    for i:=1 to length(s) do
    if(s[i]=b)and((s[i-1] in rz)or(i=1)){если эта буква и перед ней разделитель или она первая}
    then kb:=kb+1;
    writeln('Количество слов на букву ',b,' =',kb);
    readln;
    end;
'3':begin
    kp:=0;
    for i:=1 to length(s) do
    if s[i]=' ' then kp:=kp+1;{тупо считаем пробелы}
    writeln('Количество пробелов=',kp);
    readln;
    end;
else exit;
end;
until not(w in ['1'..'3']);
end.