Написать программу в паскале,подсчитывающую сколько слов в заданной фразе(предложении)

Program slovo; const symbols = [ ' ', ';', ':', '-','?','!','.',',']; var s:string;     i:byte;     n:integer; begin   writeln('введите строку');   readln(s);   for i:=1 to length(s) do begin     if (s[i] in Symbols) and not (s[i-1] in Symbols) then n:=n+1;   end;   writeln('в строке ',n,' слов');   readln; end.