program lab6
implicit none
character,allocatable::a(:),b(:)
character x
integer ioerr /0/,len10 /0/,len9 /0/,i
open(10,access='direct',action='readwrite',recl=1,file='f1.txt')
open(9,access='direct',action='readwrite',recl=1,file='f2.txt')
do while(ioerr==0)
read(10,iostat=ioerr) x
if (ioerr==0) len10=len10+1
enddo
ioerr=0
do while(ioerr==0)
read(9,iostat=ioerr) x
if (ioerr==0) len9=len9+1
enddo
allocate(a(len10))
allocate(b(len9))
rewind(10)
do i=1,len10
read(10) a(i)
enddo
rewind(9)
do i=1,len9
read(9) b(i)
enddo
rewind(10)
do i=1,len10
write(9) a(i)
enddo
rewind(9)
do i=1,len9
write(10) b(i)
enddo
endfile(10)
close(10)
endfile(9)
close(9)
deallocate(a,b)
end program lab6