E2141 Declaration syntax error

double norm(int n,double qk[m][m],double z)
{
int i,j;
double a;
for(i=0; i<n; i++)
    {
    for(j=0;j<n;j++)
        {
        qk[i][0]=a;
        if (qk[i][j]>=a){ qk[i][j]=a;}
        }
    z+=qk[i][j];
    }
return z;
}

#include <vcl.h>
#pragma hdrstop
#include "LR3.h"
#include "Matrop.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
[COLOR="Red"]TForm6 *Form6;[/COLOR]
double a[m][m],c[m][m],q[m][m],qk[m][m];
double M,z;
int n, k, km,h;
 
 
void __fastcall TForm6::Button1Click(TObject *Sender)
{
n = StrToInt(Edit1->Text);
RazmernStrG(n, StringGrid1, "A");
RazmernStrG(n, StringGrid3, "Q0");
RazmernStrG(n, StringGrid4, "Qk");
}
void __fastcall TForm6::Button2Click(TObject *Sender)
{
M = StrToFloat(Edit2->Text);
km = StrToInt(Edit3->Text);
inpm(n, a, StringGrid1);
inpm(n, q, StringGrid3);
h = StrToFloat(Edit5->Text);
}
void __fastcall TForm6::Button3Click(TObject *Sender)
{
k=1;
umnmm(n,a,a,c);
umnmh(n,c,h);
summ(n,a,c);
umnmm(n,a,q,qk);
outpm(n,qk,StringGrid4);
Label12->Caption = FloatToStr(norm(n,qk,z));
while((norm(n,qk,z)>M)&&(k<km))
    {
    ShowMessage("Итерация № "+IntToStr(k));
    outpm(n,qk,StringGrid4);
    Label12->Caption = FloatToStr(norm(n,qk,z));
    prisv (n,q,qk);
    umnmm(n,a,a,c);
    umnmh(n,c,h);
    summ(n,a,c);
    umnmm(n,a,q,qk);
    outpm(n,qk,StringGrid4);
    Label12->Caption = FloatToStr(norm(n,qk,z));
    k = k+1;
    }
if(k==km)
    {
    Edit4->Text = IntToStr(k);
    ShowMessage ("Точность не достигнута за "+IntToStr(k)+" итераций");
    }
else
    {
    outpm(n, qk, StringGrid4);
    Edit4->Text = IntToStr(k);
    ShowMessage("Количество итераций = "+IntToStr(k));
    }
}
void __fastcall TForm6::Button4Click(TObject *Sender)
{
Close();
}
 
 
//---------------------------------------------------------------------------
 __fastcall TForm6::TForm6(TComponent* Owner)
        : TForm(Owner)
{
}