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

Дано предложение, надо определить количество слов в нём. Одно слово от другого отделено пробелом.

program z38;
uses crt;
var tec : string;
 l,i,n : longint;
 begin
 clrscr;
 write('введите текст:');readln(tec);
 l:=length(tec)+1;tec[l]:=' ';
 for i:=1 to l do if tec[i]=' ' then n:=n+1;
 write('В тексте ',n,' слов');
 readln;
 end.