Количество предложений в тексте

[Noxil]

С помощью текстового редактора создать файл, содержащий текст, длина кото¬рого не пре-вышает 1000 символов (длина строки текста не должна превышать 70 символов). Имя файла должно иметь расширение DAT. Написать программу, которая:
- выводит текст на экран дисплея;
- определяет количество предложений текста и количество слов в каждом предложении

Прогу я набрасал, но почему-то не считается кол-во предложений. Посмотрите, что не так:

var
p,d,i,k:integer;
s:string;
f:text;
begin
 assign(f,'test.dat');
 reset(f);
 while not EOF(f) do
  begin
   readln (f,s);
   writeln(s);
  end;
 i:=1;
 k:=0;
 while not EOF(f) do
  begin
  if s[i]='.' then
   k:=k+1;
   inc(i);
 close(f);
 end;
 writeln('Кол-во предложений: ',k);
 readln;
 end.

[alex_fcsm]

var
p,d,i,k:integer;
s:string;
ch:char;
f:text;
begin
 assign(f,'c:\test.dat');
 reset(f);
 while not EOF(f) do
  begin
   readln (f,s);
   writeln(s);
  end;
  close(f);
 i:=1;
 k:=0;
  assign(f,'c:\test.dat');
 reset(f);
 while not EOF(f) do
  begin
  read(f,ch);
  if ch='.' then
   k:=k+1;
  end;
  close(f);
 writeln('Кол-во предложений: ',k);
 readln;
 end.

[Noxil]

спс.
Что-то не получается найти кол-во слов:

var
p,d,i,k:integer;
s:string;
ch:char;
f:text;
begin
 assign(f,'test.dat');
 reset(f);
 while not EOF(f) do
  begin
   readln (f,s);
   writeln(s);
  end;
  close(f);
 i:=1;
 k:=0;
  assign(f,'test.dat');
 reset(f);
 while not EOF(f) do
  begin
  read(f,ch);
  if ch='.' then
   k:=k+1;
  end;
For i:= i to length (s) do
 begin
p:=1; {счетчик слов}
While s[i]<>'.' do
  begin
if s[i]=' ' then
inc(p);
 end;
 end;
close(f);
 writeln('Кол-во предложений: ',k);
 writeln('Кол-во слов ',p);
 readln;
 end.

[alex_fcsm]

var
p,d,i,k:integer;
s:string;
ch:char;
f:text;
begin
 assign(f,'test.dat');
 reset(f);
 while not EOF(f) do
  begin
   readln (f,s);
   writeln(s);
  end;
  close(f);
 i:=1;
 k:=0;
  assign(f,'test.dat');
 reset(f);
 while not EOF(f) do
  begin
  read(f,ch);
  if ch='.' then
   k:=k+1;
  end;
///Вот здесь конец файла. Что у Вас хранится при этом в s???

For i:= i to length (s) do
 begin
p:=1; {счетчик слов}
While s[i]<>'.' do
  begin
if s[i]=' ' then
inc(p);
 end;
 end;
close(f);
 writeln('Кол-во предложений: ',k);
 writeln('Кол-во слов ',p);
 readln;
 end.

[Askar_g]

Сообщение от alex_fcsm

var
p,d,i,k:integer;
s:string;
ch:char;
f:text;
begin
 assign(f,'test.dat');
 reset(f);
 while not EOF(f) do
  begin
   readln (f,s);
   writeln(s);
  end;
  close(f);
 i:=1;
 k:=0;
  assign(f,'test.dat');
 reset(f);
 while not EOF(f) do
  begin
  read(f,ch);
  if ch='.' then
   k:=k+1;
  end;
///Вот здесь конец файла. Что у Вас хранится при этом в s???

For i:= i to length (s) do
 begin
p:=1; {счетчик слов}
While s[i]<>'.' do
  begin
if s[i]=' ' then
inc(p);
 end; <-------------------------у меня почему то тормозит на этой строке
 end;
close(f);
 writeln('Кол-во предложений: ',k);
 writeln('Кол-во слов ',p);
 readln;
 end.

вввввввввввв

[Noxil]

Как определить кол-во слов в каждом предложении?

[alex_fcsm]

Пример для одного предложения

uses crt;
var s,sub:string;
    i,n:integer;

begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then
inc(n);
writeln(n);
end.

[Noxil]

С одним предложением проблем нет. Я вот не могу сделать, чтобы для каждого предложения показывало кол-во слов