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

[Indoles]

Доброго времени суток!
Дан текстовый файл, определить число знаков препинания, используемых в строке.

program probel;
var
f:text;
c,i,k:integer;
st,str:string;
begin
write('Введите имя файла: ');
readln(st);
assign(f,st);
reset(f);
c:=0;
while not eof(f) do
begin
readln(f,str);
for i:=1 to length(str) do
if str[i]= then c:=c+1;
end;
close(f);
write('число знаков препинания: ',c);
readln;
end.

Проблема: Не могу сообразить как ввести все знаки препинания. Если поставить str[i]='.', тогда он считает, а если внести сразу несколько, пишет что =0.
Подскажите, пожалуйста, в чем моя ошибка?

[whatever]

Используй множества:

program probel;
 var
 f:text;
 c,i,k:integer;
 st,str:string;
 begin
 write('Введите имя файла: ');
 readln(st);
 assign(f,st);
 reset(f);
 c:=0;
 while not eof(f) do
 begin
 readln(f,str);
 for i:=1 to length(str) do
   if (str[i] in ['.',',','-']) then c:=c+1; //в квадратных скобках перечисляешь знаки препинания.
 end;
 close(f);
 write('число знаков препинания: ',c);
 readln;
 end.

Код запускать не пробовал, чисто визуально вроде бы рабочий.

[Indoles]

Спасибо!!!