Работа с текстом.

uses crt;
var
f,g:Text;
i, KolSlov:integer;
s,ak:string;
begin
 KolSlov:=0;
 Assign(f,'c:/text.txt');
 Reset(f);
 Assign(g,'c:/slova.txt');
 Rewrite(g);
 while not (Eof(f)) do
 begin
   Readln(f,s);
   for i:=1 to Length(s)-1 do
     begin
       if (s[i]<>' ') then
       ak:=ak+s[i];
       if (s[i]=' ') and (s[i-1]<>' ') and (i>1) then
       begin
         KolSlov:=KolSlov+1;
         Writeln(g,ak);
         Writeln(ak);
         ak:='';
       end;
   end;
 end;
 KolSlov:=KolSlov+1;
 Writeln(g,ak);
 Writeln(ak);
 ak:='';
Close(g);
Writeln('Slov v file:',KolSlov);
Writeln('Zaversheno');
ReadLn;
end.

program prog1;
uses
    crt;
var
    txtFile : Text;
    wordsCount : integer;
    sim : Char;
    prevSim : Char;
begin
ClrScr;
Assign(txtFile, 'in.txt');
Reset(txtFile);
wordsCount := 0;
prevSim := ' ';
while not(Eof(txtFile)) do
    begin
    Read(txtFile, sim);
    if ((prevSim = ' ') or (prevSim = #10)) and (sim <> ' ') and (sim <> #13)
        then
            Inc(wordsCount);
    prevSim := sim;
  end;
Close(txtFile);
Writeln('Kol-vo slov = ', wordsCount);
Readln;
end.

program prog1;
uses
      Crt;
var
      txtFile : Text;
      separators : Set of char;
      wordsCount : word;
      sim : char;
      prevSim : char;
begin
ClrScr;
Assign(txtFile, 'in.txt');
Reset(txtFile);
separators := [#13, #10, #27,  #9, ',', '.', '!', '?', ';'];    {*}
wordsCount := 0;
prevSim := #27;
while not(Eof(txtFile)) do
      begin
      Read(txtFile, sim);
      if (prevSim in separators) and not(sim in separators)      {**}
            then
                  Inc(wordsCount);
      prevSim := sim;
      end;
Close(txtFile);
Write('Kol-vo slov = ', wordsCount);
Readln;
end.