Подсчитать количество слов в заданном файле

var
f:text;
a:array[1..100]of string;
b:array[1..100]of string;
t:string;
k,n,i:integer;
begin
assign(f,'input.txt');
reset(f);
while not eof(f) do
begin
inc(k);
readln(f,a[k]);
a[k]:=' '+a[k];
t:=a[k];
for i:=1 to length(t) do
if (t[i]=' ')and(t[i+1]<>' ')then inc(n) else if (t[i]<>' ')then b[n]:=b[n]+t[i];
end;
close(f);
writeln(n);
end.

uses crt;
const max=20;//макс размер матрицы
type mas=array[1..max] of integer;//строки матрицы-массивы
     matr=array[1..max] of mas;//матрица - массив строк
     fail=file of mas;//файл строк матрицы
const fname='D:\FMATRIC.DAN';//имена файлов
      gname='D:\GMATRIC.DAN';
var a:matr;//матрица
    b:mas;//переменная для считывания строк из файлов
    f,g:fail;//файлы
    n,m,i,j:integer;
begin
clrscr;
randomize;
assign(f,fname);
rewrite(f);
assign(g,gname);
rewrite(g);
repeat
write('Количество строк матрицы от 2 до ',max,' n=');
readln(n);
until n in [2..max];
repeat
write('Количество столбцов матрицы, меньше ',n,' m=');
readln(m);
until m in [1..n-1];
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50)+10;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
for i:=1 to n do
write(f,a[i]);//пишем матрицу построчно в файл
close(f);
reset(f);
for i:=m to filesize(f)-1 do//последние строки
 begin
  seek(f,i);
  read(f,b);
  write(g,b);//пишем в новый файл
 end;
close(f);
close(g);
reset(f);
seek(f,m);
truncate(f);//обрезаем файл
close(f);
writeln('Содержание файла ',fname);
reset(f);
while not eof(f) do
 begin
  read(f,b);
  for i:=1 to m do
  write(b[i]:4);
  writeln;
 end;
close(f);
writeln;
writeln('Содержание файла ',gname);
reset(g);
while not eof(g) do
 begin
  read(g,b);
  for i:=1 to m do
  write(b[i]:4);
  writeln;
 end;
close(g);
readln
end.

var
  f: text;
  s: string;
  i: integer;
  fg: boolean; // флаг слова
  count: integer := 0; // счетчик слов
  
begin
  Assign(f, 'input.txt');
  Reset(f);
  
  while not EoF(f) do
  begin
    fg:=false; // сбрасываем флаг слова
    Readln(f, s); // читаем файл по строчно и записываем в s
   
    for i:=1 to Length(s) do
      if s[i]<>' ' then 
        begin
        if fg=false then Inc(count); // увеличиваем счетчик
        fg:=true;
        end
      else fg:=false; // как только вышли из слова, сбрасываем флаг слова
  end;
  writeln('Кол-во слов в файле: ', count);
end.