for each suffix i of B:
    for each prefix j of A:
        lcp[i][j] = LCP(A[j:], B[i:] + "$"
        max_lcp = 0
for i in range(len(B)-s, len(B)):
    max_lcp = max(max_lcp, lcp[i][p-1])