Символ якоби....

[parfesha]

Нужна помощь, совсем запуталась, нужно найти матрицу из символов якоби: а:=j-i; b:=простое

procedure TForm1.Button1Click(Sender: TObject);
 var a: Matrix;
 i,j,v:integer;

begin
 
  raz := StrToInt(Edit2.Text); // это b
   for i:=0 to raz do
       for j:=0 to raz do      begin
 begin
   if (raz=0) then f:= j-i  ;
      if Abs(f) = 1 then jk:=1
   else jk:=0;
   StringGrid1.Cells[i,j]:=FloatToStr(jk);
 end;

 begin
   if (f mod 2 = 0) and (raz mod 2 = 0) then
      begin
       jk:=0;
      StringGrid1.Cells[i,j]:=FloatToStr(jk);
      end
   else
   v:=0;
   while (raz mod 2)=0 do
     begin
      raz:=raz;
      v:=v+1;
     end;
   if (v mod 2=0) then
      k:=1
   else k:=power(-1,((j-i)*((j-i)-1))/8);
      if raz<0 then raz:= raz*(-1);
      if f<0 then k:=k*(-1);
 end;

 begin
  //f:= j-1  ;
   if (j-i = 0) then
       begin
         if raz>1 then
             jk:=0
         else
             k:=power(-1,((j-i)*((j-i)-1))/8);
             jk:=k;
             //StringGrid1.Cells[i,j]:=FloatToStr((jk);
       end
     else
       begin
         v:=0;
           while ((j-i) mod 2)=0 do
              begin
                  f:=j-i;
                  f:=f;
                  v:=v+1;
              end;
         if (v mod 2=0) then
           k:= power(-1, (raz*raz-1))*k;
       end;

 begin
       f:=j-i;
       k:=k*power(-1,(((f-1)*(raz-1))/4));   /// особенно вот тут ругается

       r:=abs(j-i); f:=raz mod r;
       raz:=r;
 end;        end;

[parfesha]

И что никто не хочет помочь?

[Stilet]

Я бы помог, если бы не был двоешником по математике.