program laba6;
uses crt;
var
 name1,name2,st:string;
 f1,f2:text;
 a,k,z,i,t,j,rz:byte;
 m,n1,n2:byte;
 mas,mas1,virez,massiv:array[1..10] of string;
 Procedure Anykey;
 Begin
 Repeat Until Keypressed;
 End;

 begin
 clrscr;
 writeln('Введите имя первого файла(в него будем вставлять)');
 writeln(' с полным путем и расширением:');
 readln(name1);
 writeln('Введите имя второго файла(из него будем копировать)');
 writeln(' с полным путем и расширением:');
 readln(name2);
 Assign(F1,name1);
{$I-}
Reset(F1);
{$I+}
If IoResult=0 then
 Begin

       Assign(F2,name2);
{$I-}
Reset(F2);
{$I+}
If IoResult=0 then
 Begin
  writeln('Введите строку первого файла, перед которой следует вставить блок:');
  readln(m);
  WHILE m<1 do
  begin
  writeln('М должно быть не меньше 1.Повторите ввод!');
  readln(m);
  end;
  repeat
  writeln('введите строки , которые нужно вставить, N1<N2');
  write('N1=');
  readln(n1);
  write('N2=');
  readln(n2);
  if( n1<1) or (n2<=1) or (n1=n2) then
  writeln('числа должны быть больше 1! повторите ввод!');
  if N2<n1 then writeln('n1<n2! Повторите ввод!')
  until (n1>=1) and (n2>1) and (n1<n2);
  rz:=n2-n1+1;
   z:=0;
  while ( not eof(f1)) do
   begin
    readln(f1,st);
    inc(z);
    mas[z]:=st;
   end;
   t:=0;
   while ( not eof(f2)) do
   begin
    readln(f2,st);
    inc(t);
    mas1[t]:=st;
   end;
   close(f1);
   close(f2);

   j:=1;
   for i:=n1 to n2 do
   begin
    virez[j]:=mas1[i];
    inc(j);
    end;

   for i:=1 to m-1 do
   massiv[i]:=mas[i];

   j:=1;
   for i:=m to m+rz-1 do
   begin
   massiv[i]:=virez[j];
   inc(j);
   end;

   for i:=rz+m to rz+z do
   begin
   massiv[i]:=mas[m];
   inc(m);
   end;
  writeln('это будет записано в файл:');
   for i:=1 to rz+z do
   writeln(massiv[i]);
   readln;

   rewrite(f1);
   for i:=1 to rz+z do writeln(f1,massiv[i]);
   close(f1);

  end
 else
  begin
  Writeln('Sorry, File "',name2,'" not Found!!! Press any key, please');
  anykey;
 End;
 end
 else
 begin Writeln('Sorry,File "',name1,'" not Found!!! Press any key, please');
  anykey;
 end;
 writeln('для завершения программы нажмите <ENTER>');
 readln;
 end.