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

Задача. Дано предложение, определить количество слов в нём.
Решение.

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.