Obliczanie liczby wystąpień ciągu "ch" w zadanym zdaniu

program Znaki;
uses
  Crt;
var
  Z: Char;
  K: Word;
begin
  K := 0;
  WriteLn('Wprowadzaj znaki. Kropka-koniec.');
  Z := ReadKey;
  Write(Z);
  
  while Z <> '.' do
  begin
    if Z = 'a' then
      K := K + 1;
      
    Z := ReadKey;
    Write(Z);
  end;
  
  WriteLn;
  WriteLn('Liczba wystapien litery a= ', K);
  ReadLn;
end.

program Project1;

{$MODE OBJFPC}{$LONGSTRINGS ON}

uses
  Crt;

  function GetSentense(): String;
  var
    LChar: Char;
  begin
    Result := '';

    repeat
      LChar := ReadKey();

      if LChar <> '.' then
      begin
        Result += LChar;
        Write(LChar);
      end;
    until LChar = '.';

    WriteLn();
  end;

  function GetChCount(const ASentense: String): Integer;
  var
    LCharIdx: Integer;
  begin
    Result := 0;

    for LCharIdx := 1 to Length(ASentense) - 1 do
      if (ASentense[LCharIdx] = 'c') and (ASentense[LCharIdx + 1] = 'h') then
        Result += 1;
  end;

var
  LSentense: String;
  LChCount: Integer;
begin
  LSentense := GetSentense();
  LChCount := GetChCount(LSentense);

  Write('Count: ', LChCount);
  ReadLn();
end.

program Project1;

{$MODE OBJFPC}{$LONGSTRINGS ON}

uses
  Crt;
var
  LSentense: String = '';
  LChCount: Integer = 0;
  LChar: Char;
  LCharIdx: Integer;
begin
  repeat
    LChar := ReadKey();

    if LChar <> '.' then
    begin
      LSentense := LSentense + LChar;
      Write(LChar);
    end;
  until LChar = '.';

  WriteLn();

  for LCharIdx := 1 to Length(LSentense) - 1 do
    if (LSentense[LCharIdx] = 'c') and (LSentense[LCharIdx + 1] = 'h') then
      LChCount := LChCount + 1;

  Write('Count: ', LChCount);
  ReadLn();
end.

+ LSentense - ciąg znaków ze zdaniem
+ LChCount  - ilość wystąpień podciągu ch
+ LChar     - znak podawany z klawiatury
+ LCharIdx  - iterator pętli przeszukującej zdanie

+ w pętli (co najmniej raz):
  - oczekiwanie i pobranie znaku z klawiatury, wpisanie go do zmiennej LChar
  + jeśli podany znak nie jest kropką:
    - dopisanie podanego znaku do łańcucha LSentense
    - wyświetlenie podanego znaku na ekranie
- przejście do nowej linii
+ w pętli (od indeksu pierwszego znaku do indeksu przedostatniego):
  + jeśli znak pod indeksem w zmiennej LSentense to c i kolejny to h:
    - inkrementacja zmiennej LChCount, czyli licznika wystąpień szukanego podciągu
- wyświetlenie wyniku
- oczekiwanie na klawisz Enter