program kurs2;

var
 f,g:text;
 n,m:string[80];
 v,pos:integer;

begin
 write('Vvedite vid vvoda dannyh 1 ili 2 ');
 readln(v);
  if v=1 then
	  begin
	   assign(f,'c:\kurs\input.txt');
	   reset(f);
	   assign(g,'c:\kurs\output.txt');
	   rewrite(g);
	   write('Vvedite nomer pozicii ');
	   readln(pos);
	   write('Vvedite vvodimye ');
	   readln(m);
	    while not Eof(f) do
	     begin
	      readln(f,n);
	      writeln('old=',n);
	       if length(n)>=pos then
		insert(m,n,pos+1);
		writeln(g,n);
		writeln('new=',n);
	     end;
	   close(g);
	   close(f);
	  end
	 else if v=2 then
		      begin
		       write('Vvedite 1-iy text');
		       readln(f);
		       write('Vvedite 2-oy text');
		       readln(g);
		       write('Vvedite nomer pozicii ');
		       readln(pos);
		       write('Vvedite vvodimye ');
		       readln(m);
			while not Eof(f) do
			 begin
			  readln(f,n);
			  writeln('old=',n);
			   if length(n)>=pos then
			    insert(m,n,pos+1);
			    writeln(g,n);
			    writeln('new=',n);
			 end;
		       close(g);
		       close(f);
		      end
		     else
		      writeln('Oshibka poprobuyte zanovo');


 readln;
end.