Turbo pascal - Program oblicza ilość wyrazów w zdaniu

program ilosc_wyrazow;

uses crt;

var zdanie:string;
    i,licznik:byte;

begin
Writeln('Wpisz teraz jakies zdanie i nacisnij ENTER:');
writeln;
readln(zdanie);
for i:=1 to length(zdanie) do if zdanie[i]=' ' then
                                 licznik:=licznik+1;

writeln;
writeln('Wyrazow w twoim zdaniu jest : ',licznik+1);
end.