Сделать в Лазарусе

[Ne1StoM]

Создать текстовый файл. Подсчитать количество знаков препинания в нем.

[Utkin]

Ну и? Вот народ пошел до чего наглый. В чем собственно проблема? В том, чтобы найти того кто все сделает за Вас? Где наработки, что не получается? Берете СтрингЛист и создаете свой текстовый файл. Для знаков препинания заводите множество и в цикле по тексту считаете свои точки и запятые.

[Ne1StoM]

Var F:Text;
Buf,S:String;
M:Integer;
begin
Assign(F,'Путь_к_файлу.ххх');
ReWrite(F);
Close(F);
ReSet(F);
repeat
ReadLn(F,Buf);
S:=S+Buf;
until EoF(F);
M:=Length(S);
end;
Вот наработки!!!Не могу понять чего не хватает...

[Zer0]

Вот наработки!!!Не могу понять чего не хватает...

извините, но мозгов не хватает
Во-первых: rewrite(f) очищает файл, а потом вы из него пытаетесь считывать
Во-вторых: в строку то Вы записываете, а знаки препинания кто считать будет? Как посоветовал товарищ Utkin, можете создать set of char, куда забить знаки препинания, а затем в цикле прохода по строке смотреть, присутствует ли текущий символ в этом множестве

[Ne1StoM]

Материальная благодарность будет Если вы решите мне эту задачу...

[Zer0]

Var F:Text;
Buf,S:String; znaki:set of char;
i,count:Integer;
begin
 znaki:=znaki+[',','.','!','?'];
 Assign(F,'Путь_к_файлу.ххх');
 ReSet(F);
 repeat
  ReadLn(F,Buf);
  S:=S+Buf;
 until EoF(F);
 close(f);
 count:=0;
 for i:=1 to Length(S) do
  if (s[i] in znaki) then inc(count);
 writeln ('Kolichestvo znakov = ',count);
end;

разбирайтесь сами