Посчитать количество предложений в тексте

type b=array[0..128] of string;
var
  a:b;
  s:string;
  n:integer;
procedure Split(s:string;delimeter:char;var a:b;var count:integer);
var
  t:string;
  i:integer;
begin
  s:=s+delimeter;
  t:='';count:=0;
  for i:=1 to length(s) do begin
 
    if s[i]<>delimeter then t:=t+s[i] else
       if t<>'' then begin
         a[count]:=t;
         t:='';
         count:=count+1;
       end; 
    end;
end;
begin
  write('введите строку:');
  readln(s);
  Split(s,'.',a,n);
  writeln('В строке найдено ',n,' предложений. Их список:');
  for n:=0 to n-1 do writeln(n+1:4,': ',a[n]);
end.

program CountSentences;
 
function CountSentencesInText(text: string): integer;
var
  i, count: integer;
begin
  count := 0;
  for i := 1 to Length(text) do
  begin
    if (text[i] = '.') or (text[i] = '!') or (text[i] = '?') then
      count := count + 1;
  end;
  CountSentencesInText := count;
end;
 
var
  inputText: string;
  sentenceCount: integer;
 
begin
  WriteLn('Введите текст:');
  ReadLn(inputText);
  sentenceCount := CountSentencesInText(inputText);
  WriteLn('Количество предложений в тексте: ', sentenceCount);
end.