program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  const
     Str = 3;
var
   file_with_database: text;{failovaia peremennaya}
   file_with_report: text;{failovaia peremennaya}
   puti: string;{sodergit put' k failu}
   mesiac: string;{nazvanie mesiaca}
   year: string; {nomer goda}
   string_to_database: string;{stroka xranit promegutochnue rezultatu dlia otcheta}
   string_from_database: string;
   vubor: string;
   number: Integer;{nomer po poryadku}
   kolichestvo_strok: integer;{kol-vo strok na liste}
begin
     writeln('Programma formiruet otchet o nauchno-issledovatelskoy rabote.');
     write('mesiac: ');
     readln(mesiac);
     write('year: ');
     readln(year);

     {otkruvaem basu dannux dlia chtenia}
     repeat
          write('Vvedite puti k base dannux:');
          readln(puti);
          assign(file_with_database,'C:/1.txt' {puti});{sviazuvaem failovuyu peremennuye s failom}
          {$I-}          {-eto directiva preprocessora, ona otklichaet vuvod oshibok v standartnuy vuvod}
          reset(file_with_database);{otkruvaem basu dannux na chtenie}
          if IOResult = 0 then break {esli operacia otkrutia faila s peremennoy proshla uspeshno, vuxodim is cikla}
          else writeln('Takogo faila net');{'inache soobsenie ob oshibke'}
          {$I+}
          write('Povtoriti zapros? y\n  ');{povtornuy zapros}
          readln(vubor);
          if vubor = 'n' then exit;{polizovatel otklonil vvod, vuxodim is programmu}
     until false; {beskonechnuy cikl zaprosa vvoda, vuyty is nego mogno tolko vnutri cikla}

     {esli otkrutie proshlo uspeshno to idem dalee}

     write('Vvedite puti k failu dlia vuvoda: ');
     readln(puti);
     assign(file_with_report,'C:/2.txt'{puti});{sviazuvaem failovuyu peremennuye s failom}
     rewrite(file_with_report);{otkruvaem fail na zapis i udaliaem ego sodergimoe
                                esli fail ne bul sozdan on sozdastsia}

     {generieuem novuy fail}
     number:=0;
     kolichestvo_strok:=0;
     string_to_database:='';
     while not eof(file_with_database) do {poka ne konec faila s basoy dannux}
     begin
          if not eoln(file_with_database) then
          begin
               kolichestvo_strok:=kolichestvo_strok+1;
               number:=number + 1;
               writeln('number ',number);
               Str(number, string_to_database);{--------------------------------------!!!!!!????????????????????}
               readln(file_with_database,string_from_database);
               writeln(string_to_database);


          end;
     end;

end.