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

uses crt;
const ch=['1', '2', '3', '4','5','6','7','8','9','0'];
var f,f2:text;
a:string; b,ks:array[1..100] of string;
i,n,j,j1:integer;  bool:boolean; k: array [1..100] of byte;
Begin
clrscr;
assign(f,'filein.txt');
assign(f2,'fileout.txt');
reset(f); i:=0;
while not eof(f) do
 begin
 inc(i);
 readln(f, b[i]);
 end;
n:=i;
rewrite(f2);
for i:=1 to n do
 begin
   for j:=1 to length(b[i]) do
    begin
     bool:=false;
     if b[i][j]=' ' then
                     begin
                      if (b[i][j-1]<>' ') and (j>1) then bool:=true;
                      if b[i][j-1] in ch then
                       begin
                        j1:=j-1;
                        while b[i][j1] in ch do dec(j1);
                         if b[i][j1]=' ' then bool:=false;
                       end;
                      end;
    if bool then inc(k[i]);
     end;
 if b[i][length(b[i])]<>' ' then
  begin
  bool:=false;
   j:=length(b[i]);
    if b[i][j]<>' ' then bool:=true;
    if b[i][j] in ch then  begin
                            j1:=j-1;
                             while b[i][j1] in ch do dec(j1);
                                if b[i][j1]=' ' then  bool:=false;
                           end;
   if bool then  inc(k[i]);
   end;
 str(k[i], ks[i]);
 b[i]:=b[i]+' '+ks[i];
 end;
for i:=1 to n do
begin
writeln(b[i]);
writeln(f2,b[i]);
end;
close(f); close(f2);
readkey;
end.