Написать пакетный файл выполняющий резервное копирование всех txt файлов каталога, указанного пользователем! !

Set /p a="dir: " copy %a%\*.txt c: \reserv\

Var      m1,m2,m5,m10,m50,m100,m500,s: integer; begin  m1: =0; m2: =0;   m5: =0;   m10: =0;   m50: =0;   m100: =0;   m500: =0;   readln(s);   while s> 0 do  begin    if s> =500 then    begin      s: =s-500;       m500: =m500+1;     end    else      if s> =100 then      begin        s: =s-100;         m100: =m100+1;       end      else        if s> =50 then        begin          m50: =m50+1;           s: =s-50;         end        else          if s> =10 then          begin            s: =s-10;             m10: =m10+1;           end          else            if s> =5 then            begin              m5: =m5+1;               s: =s-5;             end            else              if s> =2 then              begin                m2: =m2+1;                 s: =s-2;               end              else              begin                m1: =m1+1;                 s: =s-1;               end;   end;   writeln('500р = ',m500);   writeln('100р = ',m100);   writeln('50р = ',m50);   writeln('10р = ',m10);   writeln('5р = ',m5);   writeln('2р = ',m2);   writeln('1р = ',m1); end.