[Turbo Pascal] Zliczanie ilości słów i znaków w zdaniu.

program abc;
uses crt;
var zdanie:string;
i,litery,wyrazy:byte;

begin
clrscr;
writeln('Program oczekuje na wpisanie dowolnego zdania, nastepnie informuje z ilu');
writeln(' liter i ilu wyrazow sklada sie wpisane zdanie.');
writeln;
writeln('UWAGA=spacja nie jest litera.');
writeln;
writeln('Wpisz dowolne zdanie: ');
readln(zdanie);
for i := 1 to length(zdanie) do 
if zdanie[i] <> ' ' then litery := litery+1;
wyrazy := length(zdanie)-litery+1;


Writeln('Liter w zdaniu jest: ',litery);
Writeln('Wyrazow w zdaniu jest: ',wyrazy);

readln;
end.