Дан символьный файл f. Считая, что количество символов в слове не превосходит 20.Группы символов, разделённые пробелами (одним или нескольким ) и не содержащие пробелов внутри себя, будем называть словами.Нужно:определить количество слов в файле f.- Pascal(Паскаль)

uses crt;
type r=file of char;
procedure zapol(var f:r);
var ch:char;
begin
assign(f,'fileF');
rewrite(f);
writeln('Введите предложение, окончание ввода Esc:');
repeat
 ch:=readkey;
 if ch<>#27 then
  begin
   write(ch);
   write(f,ch);
  end;
until ch=#27;
close(f);
writeln;
end;
procedure schet(var ksl:integer; var f:r);
var i:integer; ch:char; d:boolean;
 begin
  ksl:=1;
  reset(f);
  while not eof(f) do
   begin
    read(f,ch);
     if (ch=' ') then
      {d:=true else
      d:=false;
       if d=true then} inc(ksl);
    end;
  writeln('колво слов: ',ksl);
  close(f);
 end;
 var f:r;
     k:integer;
 begin
 clrscr;
 zapol(f);
 schet(k,f);
 readln
 end.