Динамические переменные. Поиск количества цифр в файле.

[Маленыч]

Здраствуйте!
В общем написал программу поиска количества чисел в файле:

Program fil;
Uses crt;
Const mn=['0'..'9'];
Var f3:text;
    ch:integer;
    name:string;
       s:char;
Begin
    clrscr;
    write('Введите имя файла: ');
    readln(name);
    assign(f3,name);
    reset(f3);
     s:=' ';
     ch:=0;
   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;
   writeln: ('Количество чисел ',ch);
   close(f3);
   readln;
End.

Как можно ее переделать, используя динамическую память? В голову ничего не приходит.

[s-andriano]

Читайте как нетипизированный файл, а перед этим определите длину файла и выделите соответствующее количество памяти.