VAR
 F:TEXT;
 S:STRING;
 Num_Sig:ARRAY[1..10] of BYTE;
 i,j:Integer;

Function Sg(C:Char):BOOLEAN;
 Begin
  Sg:= (C=';') or (C=':') or (C='.') or (C=',') or (C='?')
             or (C='!') or (C='-') or (C='"');
 End;

BEGIN
 Assign(F, 'D:\xxx');
 ReSet(F);
 For i:=1 to 10 do
  begin
   Num_Sig[i]:=0;
   ReadLn(F,S);
   for j:=1 to Length(S) do
    if Sg(S[j]) then Inc(Num_Sig[i]);
   ReadLn(F);
   WriteLn('Number of punctuation marks in the string N',(2*i-1):2,' = ',Num_Sig[i]);
  end;
 ReadLn;
END.