Тема файлы,паскаль

[yuliya.al18]

Создать текстовый файл. Подсчитать количество предложений в нем.
Помогите написать полностью программу)

[Dvoishnik]

Вам не надоело попрошайничать??
Работа с файлами
считаем предложения по точке
вот еще подсчет предожений

[yuliya.al18]

Это не та задача!!!!!

[Dvoishnik]

а немного подумать и переделать, не?

хотя даже переделывать не надо
чем вас не устроило??

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