void TForm1::SpausdinimasA()
{
  int i, j;
  ofstream fr(CRez, ios::app);
  fr<< "A" << endl;
  fr<< "   " ;
  for(int j = 0; j < m; j++)
      fr << setw(7) << j;
  fr << endl;
  fr<< "   -" ;
  for(int j = 0; j < m; j++)
      fr << "-------";
  fr << "--" << endl;
  fr.setf(ios::fixed);
  for(int i = 0; i < n; i++){
      fr << setw(4) << i << " |";
      for(int j = 0; j < m; j++)
        fr << setw(7) << setprecision(2) << A[i][j];
      fr << " |" << endl;
  }
  fr << "    -";
  for(int j = 0; j < m; j++)
      fr << "-------";
  fr << "--"  << endl;
  fr.close();
}