посчитать сколько раз встречается каждая цифра

uses crt;
var z: array [0..9] of integer;
    c: char;
    f: file of char;
    n,code: integer;
    
begin
assign(f,'D:\P.txt');  reset(f);
while not (eof(f)) do
      begin
      read(f,c);
      if c in ['0'..'9'] then
         begin
         val(c,n,code);
         inc(z[n]);
         end;
      end;
writeln('Количество цифр в записи числа pi:');
for n:=0 to 9 do
    writeln(n,' встречается ',z[n],' раз(а)');
readln;
end.

Var A:array[0..9] of integer;
    f:text;
    s:string;
    i:byte;
Begin
    Assign(f,'p.txt');Reset(f);
    While not Eof(f) do
    Begin
      readln(f,s);
      For i:=1 to Length(s) do
       if s[i] in ['0'..'9'] then inc(A[ord(s[i])-ord('0')]);
    End;
    For i:=0 to 9 do
     writeln('Цифра ',i,' встречается = ',A[i]);
    Close(f);
    readln;
End.

uses crt;
var f:text;
    i:byte;
    a:char;
    b:array[0..9] of byte;
begin
clrscr;
for i:=0 to 9 do
b[i]:=0;
assign(f,'p.txt');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  if a in ['0'..'9'] then inc(b[ord(a)-48]);
 end;
close(f);
writeln('Встречаемость цифр в файле');
for i:=0 to 9 do
writeln(i,'-',b[i]);
readln
end.