求大神帮我看看Fortran暴雨过程挑选程序哪里出错了

幻电

（1）主要目的是想筛选数据：将文件1.txt中暴雨过程数据存入2.txt中。（2）1.txt中数据格式是
2020/01/01，02020/01/02，50.2
2020/01/03，2
2020/01/04，0
2020/01/05，3.0
2020/01/06，50.3
2020/01/07，4.0
2020/01/08，0
2020/01/09，0
2020/01/10，0

（3）目的是得到如下内容的2.txt
2020/01/02，50.2
2020/01/03，2

2020/01/05，3.0
2020/01/06，50.3
2020/01/07，4.0

(4)我的Fortran程序如下：
program main
integer::i,j,n=10
character(len=10), dimension(10）::x,d
!real::x,d
real, dimension(10）::y,e

open(1,file='1.txt')
open(2,file='2.txt')
do i=1,n
read (1,*) x(i),y(i)
if (y(i)>=50.0) then
write(2,*) x(i),y(i)
  j=i-1
  read (1,*) d(j),e(j)   
    do while (e(j) <= 0.0)
    write(2,*) d(j),e(j)
      j = j-1
     end do
j=i+1
read (1,*) d(j),e(j)   
    do while (e(j) <= 0.0)
    write(2,*) d(j),e(j)
      j = j+1
     end do
end if
end do
close (1)
cloae (2)
end program main

编译出来老是有错误，求大神帮我找找原因。