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

…
 
a:=' '+a;
 
for i:=1 to length(a) do
 
if (a[i]=' ') and (a[i+1]<>' ') then inc(n);
 
write('количество слов: ',n);
 
…

uses crt;
const rz=['_',':',';',',',' ','.','?','!'];
var s,s1:string;
    a:array[1..255] of byte;
    i,j,k,n:byte;
begin
writeln('Введите текст');
read(s);
n:=length(s);
for i:=1 to 255 do
a[i]:=0;
i:=1;
while i<=n do
if not(s[i] in rz)and ((i=1)or(s[i-1] in rz)) then{если буква, а перед ней разделитель, или она первая}
 begin
  j:=i;
  k:=0;
  while (j<=n) and not(s[j] in rz) do {пока не разделитель и не конец строки}
   begin
    k:=k+1;{считаем буквы в слове}
    j:=j+1;{идем вперед}
   end;
  inc(a[k]);{увеличиваем на 1 элемент с номером=длине слова}
  i:=i+k;{перепрыгиваем}
 end
else i:=i+1;
writeln('Длина слова   количество слов');
for i:=1 to 255 do
if a[i]<>0 then writeln(i:5,a[i]:14);
end.

const
  rz = ['_', ':', ';', ',', ' ', '.', '?', '!'];
 
var
  s: string;
  r, i, n: byte;
 
begin
  writeln('Введите текст');
  readln(s);
  n := length(s);
  i := 1;
  while i <= n do
  begin
    if not (s[i] in rz) and ((i = 1) or (s[i - 1] in rz)) then{если буква, а перед ней разделитель, или она первая}
      inc(r);
    inc(i);
  end;
  writeln('Количество слов: ', r);
end.