求助，编程小白，不知道哪里错了。自己编的批量读取txt程序

自己编的批量读取txt文档的程序。其中a.txt里面每一行为需要处理的txt文件所在位置及名称。
fdir = strcat('I:\cryosat最新\质量表示检测-全南极\xin\a.txt');
fidin = fopen(fdir);
fname_out = strcat('I:\cryosat最新\质量表示检测-全南极\xin','\',fdir,'.txt');
fid=fopen(fname_out,'w')
if fidin >= 1
while ~feof(fidin)
tline=fgetl(fidin);
[lon,lat,w1,w2,h1,h2,h3,p1,p2,p3,w3,w4,w5,w6]=strread(tline,'%f %f %f %f %f %f %f %f %f %f %f %d');
if('p1<0.5')
if('h1<4093')
fprintf(fid,'%f %f %f %f %f\n',lon,lat,h1,h2,h3);
end
end
if fid_in >= 1
fclose(fid_in);
disp('okay')
end
end
fclose(fidin);
end
fclose(fidin);