Дано предложение, определить количество слов в нём — Pascal(Паскаль)

Program String_6;

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.