Определить сколько слов в тексте — Pascal(Паскаль)

uses crt;

var
  dl, ch, n: integer;
  text, text1: string;

label 1;

begin
  clrscr;
  writeln('Введите текст');
  readln(text);
  ch := 1;
  dl := length(text);
  n := pos(' ', text);
1:
  if n > 0 then
  begin
    ch := ch + 1;
    Delete(text, 1, n);
    dl := length(text);
    if dl > 0 then
    begin
      n := pos(' ', text);
      goto 1;
    end;
  end;
  writeln('В предложениии ', ch, ' слов(о) ');

end.