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

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.