Встречается ли в тексте слово, начинающееся ** заданную букву?(турбо паскаль)

Question

Встречается ли в тексте слово, начинающееся на заданную букву?(турбо паскаль)

Comments

регекспы использовать можно?

---

нет

---

Program pr; const rk=[' ','.',',',';',':','!','?']; Var s:string; i:integer; c:char; begin writeln('Введите предложения'); readln(s); c:='р' while i<=length(s) do begin if (s[i] in rk) and (s[i+1]=c) then writeln('В предложение встречаются слова на букву') else writeln('таких слов нет'); readln; end; end.

---

не могу понять, где ошибка

---

перед while точка с запятой пропущена

---

такая программа не сработает если первое слово то что надо

---

и цикл не прописан, i не меняется

Answer 1

Const
  rk = [' ', '.', ',', ';', ':', '!', '?'];
  c = 'р';

var
  s: string;
  i: integer;

begin
  writeln('Введите предложения');
  readln(s);
 
  for i := 1 to length(s) do
    if ((s[i] in rk) and (s[i + 1] = c)) or ((i = 1) and (s[i] = c)) then begin
      writeln('В предложение встречаются слова на букву', c);
      halt;
    end;
    
  writeln('таких слов нет');
  readln;
end.