Посчитать кол-во предложений., темма созданна по просьбе Анны. Опции

[Altair]

Посчитать в текстовом файле кол-во предложений.
(примечание - предложения разделяются точкой)
Условие - исключать предложения состоящие из 1 пробела.

 var
 F:file of char;
 c:char;
 i:longint;
 pn:boolean;
 s:string;
begin
 i:=0;
 pn:=false;
 write('enter file name: '); readln(s);
 assign(f,s);
 reset(F);
 While not eof(f) do begin
  read(f,c);
  if c='.' then begin
   if pn=true then inc(i);
   pn:=false;
  end else if c<>' ' then pn:=true;
 end;
 writeln(i);
 readln;
end.

EXE:  anna1.zip ( 8.32 килобайт ) Кол-во скачиваний: 506

[Altair]

А вот файл тестовый. прогони его, НЕ ОТКРЫВАЯ ДАЖЕ!! (не изменяя)
 a.txt ( 17 байт ) Кол-во скачиваний: 547