Текстовый файл. Сколько слов в каждой строке

var
  f: text;
  c: char;
  s: string;
  k, l, i, j: integer;
 
begin
  assign(f, 'file.txt');
  rewrite(f);
  writeln('Сколько строк будем заполнять?');
  repeat 
    readln(k) until k > 0;
  for i := 1 to k do 
  begin
    writeln('Введите строку ', i, ' избегая удвоенных пробелов, а также, в начале и конце строки!');
    repeat
      readln(s)
    until (pos('  ', s) = 0) and (s[1] <> ' ') and (s[length(s)] <> ' ');
    for j := 1 to length(s) do
      write(f, s[j]);
    writeln(f)
  end;  
  
  close(f);
  
  reset(f);
  while not eof(f) do
  begin
    k := 0; inc(l);
    while not eoln(f) do
    begin
      read(f, c);
      if c = ' ' then inc(k);
    end;
    readln(f);
    writeln('Строка: ', l, ', слов: ', k + 1);
  end;
  close(f);
  readln
end.