Помогите срочно решить задачу на языке программирования Delphi.

Дано описание
var a,b:array[1..30] of integer;
Найти наименьшее среди чисел - элементов массива a не содержащихся в массиве b( считая, что хотя бы одно такое число есть)