Переписать текстовый файл в другой вставляя в конец каждой строки число-количество цифровых символов

Program Count;
Var
  buf: String;
  kol: Word;
  F  : Text;
  G  : Text;
Begin
 
  Assign(F, 'Y:\SourceFile.txt');
  Assign(G, 'Y:\ResultFile.txt');
 
  Reset  (F);
  Rewrite(G);
 
  While Not Eof(F) do
  Begin
    ReadLn(F, buf);
    kol := Length(buf);
    kol := kol + Ord('0');
    buf := buf + Chr(kol);
    WriteLn(G, buf);
  End;
 
  Close(F);
  Close(G);
 
End.

kol := kol + Ord('0');

Program Count;
Var
  buf : String;
  kol : Word;
  i   : Word;
  F   : Text;
  G   : Text;
  mnoj: set of char;
Begin
 
  Assign(F, 'Y:\SourceFile.txt');
  Assign(G, 'Y:\ResultFile.txt');
 
  Reset  (F);
  Rewrite(G);
 
  mnoj := ['0'..'9'];
 
  While Not Eof(F) do
  Begin
    ReadLn(F, buf);
    kol := 0;
    For i:= 1 to Length(buf) do
    If buf[i] in mnoj then Inc(kol);
    kol := kol + Ord('0');
    buf := buf+ ' Count = ' + Chr(kol);
    WriteLn(G, buf);
  End;
 
  Close(F);
  Close(G);
 
End.

WriteLn(G, buf,kol);

WriteLn(G, buf,' Count = ',kol);

var
   f1,f2:text;
   s:string;
   res:integer;
const
   digits:set of char =  ['0'..'9'];
 
function CD (s:string):integer;
   var
   i,count:integer;
   begin
      count:=0;
      for i:=1 to length(s) do
      if (s[i] in digits) then
      count:=count+1;
      CD:=count;
      end;
 
begin
 
     assign(f1, paramstr(1));
     reset(f1);
     assign(f2, paramstr (2)); rewrite(f2);
 
   while not eof(f1) do begin
 
     while not eoln(f1) do  begin
      readln(f1,s);
      res:=cd(s);
      end;
 
      readln(f1);
      writeln(f2);
      write(f2,s, ' ', res);
   end;
 
 close(f1);
 close(f2);
end.