Найти наибольший элемент массива К, не имеющий себе равных в массиве L

[Cucumber768]

Здравствуйте. Нужна помощь.
Дано два целочисленных массива K(m) и L(n). Найти наибольший элемент массива К, не имеющий себе равных в массиве L.
Первая часть работает: заполняет оба массива, находит макс. элемент K.
А затем нужно сравнить этот максимум с элементами массива L. Подскажите, как это грамотно написать, если я все верно понял.

CLS
INPUT "vvedite kolichestvo elementov massiva K: ", N
DIM k(N)
FOR I = 1 TO N
INPUT "vvedite element massiva", k(I)
NEXT
PRINT
PRINT "Massiv K"
FOR I = 1 TO N
PRINT k(I);
NEXT
MAX = k(1)
FOR I = 1 TO N
IF MAX < k(I) THEN MAX = k(I)
NEXT I
PRINT
PRINT
PRINT "Maximalniy element = "; MAX
PRINT "__________"
PRINT
INPUT "vvedite kolichestvo elementov massiva L ", m
DIM l(m)
FOR j = 1 TO m
INPUT "vvedite element massiva", l(j)
NEXT
PRINT
PRINT "massiv L"
FOR j = 1 TO m
PRINT l(j);
NEXT

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.