1.以下程序的功能是计算文本文件file1.dat中数据的行数,结果写入文件file2.dat中.请真空完成此程序.
   program p8(input,output);
      var f,s:text;sum:integer;
    begin
      assign(f,'file1.dat');assign(s,'file2.dat');
      reset(f);rewrite_____1_____; sum:=0;
     while not _____2_____ do
        begi readln(f);    ___3____;   end;
     writeln(s,sum); close(f);   close(s);
    end.

2.设有以下说明:type arr=array[1..20] of integer;函数func的作用是求数组a(为arr类型)中的最小值,并通过函数返回.请填空完成此函数.
   function func(a:arr):____4____;
     var i,min:integer;
   begin
     min:=___5___;
     for i:=2 to 20 do
        if a[i] ___6___then min:a[i];
     func:=___7___;
    end.
  3.下面函数func的作用是:若数组a中有n个互不相同的数,则返回a中第m大的数(m<=n=100).例如:若n=10,m=4,a[1]-a[10]中的数为 5 7 9 3 4 2 10 15 8 6 则返回第4大的数8.请填空完成.
    type arr=array[1..100] of integer;
    function func(a:arr;n,m;integer);integer;
       var k,j,i:integer;
       begin
         for i:=1 to m do
           begin k:=___8___
             for j:=i+1 to n do
                if a[j]>a[k] then ___9____;
             if i<m then
                 begin j:=a[i]; a[i]:=a[k]; a[k]:=j  end
             end;
             func:=___10___
             end.