我的程序问题出在哪里？

问题有点多啊首先，var f1，f2:text;(未定义f2) a,b,h,c,j:real( 没有vear类型）其次，assign（f1,'jisuanqi.txt'); 后 没写reset(f1) (写f1文件）assign(f2,'f:jisuanqi2'); (有这个'f:jisuanqi2'文件吗）没写rewrite(f2) (写f2文件）还有，输出格式中writeln(f2,'he shi:'，h:5);（少个','号）这样改一下应该就对了