Не выходит метод Гаусса [требует правки]

int main()  
{
    setlocale(LC_ALL, "rus");
    double array[10][10];//Для коеф;
    double mas[4][5] = {
        { 2, -1, 3, 2, 4 },
        { 3, 3, 3, 2, 6 },
        { 3, -1, -1, 2, 6 },
        { 3, -1, 3, -1, 6 }
    };

    cout << "Матрица :" << endl;  // Вывод
    for (int i = 0; i < 4; i++)
    {
        for (int j = 0; j < 5; j++)
        {
            cout << '\t' << mas[i][j];
        }
        cout << endl;
    }
    int max, str,f, d, l = 0, r = 5, k = 3,sh=3;  // Ход вперед;
            for (int tt = 0; tt < 3; tt++,f++)
            {
                // 3 раза буду искать коеффы
                if (mas[f][f] < mas[f + 1][f])
                {
                    max = mas[f + 1][f];
                    for (int s = 0, int dp = f; s < 5; s++, dp++ )
                    {
                        swap(mas[f][dp], mas[f + 1][dp]);
                    }
                    for (int g = 2, g1 = 1, g2 = 0; g2 < sh; g++, g2++)  //правильно 3 коеф, 2 коеф, 1 коеф  раза находятся коеф
                    {
                        array[g][g1] = mas[g2 + 1][l] / mas[l][l];
                    }
                    l++;
                    for (int b = 0, lk = 0; b < 5; b++)
                    {
                        mas[f][b] = mas[f][b] * array[lk + 2][lk + 1]; // преобразовали строчку.
                        mas[f + 1][b] = mas[f + 1][b] - mas[f][b];
                    }
                    --sh;
                }
            }