z = 1
    z = z + i
    repeat {
        up <- as.numeric(pairdfAge[vreadmitted[z], 3])
        down <- as.numeric(pairdfAge[vreadmitted[i], 3])
        calc = up/down

        if (calc > delta)
            delta <- calc

        if (z == x)
            break
        z=z+1
    }
    if (i == (x-1))
        break

    i=i+1
}