一个比较棘手的问题,请大家教教我好吗

                            
unit   Unit1;   
   
  interface  
   
  uses  
      SysUtils,   Types,   Classes,   Variants,   QTypes,   QGraphics,   QControls,   QForms,  
      QDialogs,   QStdCtrls;  
   
  type  
      TForm1   =   class(TForm)  
          Label1:   TLabel;  
          Label2:   TLabel;  
          Label3:   TLabel;  
          Label4:   TLabel;  
          Label5:   TLabel;  
          Label6:   TLabel;  
          ListBox1:   TListBox;  
          Edit1:   TEdit;  
          Edit2:   TEdit;  
          Edit3:   TEdit;  
          Edit4:   TEdit;  
          Button1:   TButton;  
          Button2:   TButton;  
          Button3:   TButton;  
          Label7:   TLabel;  
          queue=array[1..4,1..20]   of   real;           在编译的时候就是这里错了,是怎么  
          function   aver(queue1:queue;m,n:integer);real;               回事啊  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
      i:integer;  
      score:queue;  
   
  function   aver(queue1:queue;m,n:integer):real;  
  var  
      k:integer;  
      sum:real;  
  begin  
      sum:=0;  
      for   k:=1   to   n   do  
            sum:=sum+queue1[m][k];  
            aver:=sum/n;  
            end;  
   
  implementation  
   
  {$R   *.xfm}  
   
  end.  
   
   
  这个程序没写完,当我写完这点的时候想写一些按钮代码的时候,每当我点按钮的时候都会出错,显示说     Expected   ':'but   '='   found请问这是怎么回事啊  
  请帮帮我啊

查看回复