tipul de date fișier

Prin fişier se înţelege o structură de date care constă dintr-o secvenţă de  componente.

Problema:
 Fișierul date.in conține simbloluri. De numărat cîte litere, cifre și paranteze sînt în acest fișier.

Uses CRT;
Var F:Text;   X:Char;   L,C,P:Integer;
Begin
       ClrScr;   L:=0;   C:=0;   P:=O;
       Assign(F,'date.in'); Reset (F);
Repeat
       Read(F,X);
Cse Upcase (X) of
'A'..'Z':inc (L);
'0'..'9':inc (C);
'(',')','[',']','{','}':inc (P) end
Until Eof(F); Close (F);
Write ('litere=',L,'cifre=',C,'paranteze=',P);
Readkey end.