//--------------Metodas skirtas matricai E paversti i kvadratine-------------
void TForm1::PakeistiKvadratine()
{
 if( n < m ){
  while( n < m)
   m--;
 }
 else if ( n > m){
  while ( n > m)
   n--;
 }
}