Работа с файлами 3 Опции

[@^WARlock^@]

Подскажите.

Будем считать, что предложением является любая последовательность символов, начиная пробелом и заканчивающаяся точкой, восклицательным или вопросительным знаком. Напишите программу, которая определяет кол-во предложений и кол-во слов в текстовом файле.

Я составил задачу, она вроди бы находит кол-во предложений, а принахождении кол-ва слов
она не работает :

Код

uses crt;
var
t,k,i:integer;
f:text;
n:string;
begin clrscr;
assign (f,'c:\1.txt');
reset(f);
read(f,n);
for i:=1 to length(n) do
if (n[i]=' ') and ((n[i-1]='.') or (n[i-1]='!') or (n[i-1]='?')) then
t:=t+1;
{for i:=1 to length(n) do        
if (n[1]=' ') or ((n[i-1])=' ') then    
k:=k+1;                                    
writeln('iscomih slov: ',k);
writeln;}
writeln('iskomih predlog: ',t);
readln;
close(f);
end.

Сообщение отредактировано: @^WARlock^@ - 14.08.2006 8:55