Дан файл,содержащий текст. Сколько слов в тексте? Сколько цифр в тексте? — Pascal(Паскаль)

{Дан файл,содержащий текст.
 Сколько слов в тексте?
 Сколько цифр в тексте?}

Program file3;
Const mn=['0'..'9'];
Var f3:text;
    i,j,ch,sl:integer;
    name:string;
       s:char;
    wrd :string;
    Begin
    writeln('введите имя файла');
    readln(name);
    assign(f3,name);
    reset(f3);
     s:=' ';
     sl:=0;
     ch:=0;
     while not eof(f3) do
       begin
             readln(f3,wrd);
             i:=1;
             While i<=length(wrd) do
              begin
                if wrd[i]<>' ' then sl:=sl+1;
                while (wrd[i]<>' ') and (i<=length(wrd)) do inc(i);
                inc(i)
               end;
       end;
   close(f3);
   reset(f3);
   while not eof(f3) do
     begin
       while not eoln(f3) do
         begin read(f3,s);
           if (s in mn) then ch:=ch+1;
         end;
       readln(f3);
     end;
   writeln('число слов: ',sl,'  число цифр: ',ch);
   close(f3);
End.