рекурсия

[dimok5]

Помогите пожалуста составить программу на паскаль с помощью рекурсии.


Даны 2 последовательности по 10 целых чисел в каждой. Найти наименьшее среди тех чисел первой последовательности, которые не входят во вторую последовательность(считая,что хотя бы одно такое число есть).

[Stilet]

Вот тебе полностью рабочий код:

var a,b:array[1..10] of integer;
 k,i,max:integer;

 function find(k,i:integer):Integer;
 begin
  if (i>10)or(a[i+1]=k) then
   Result:=i
  else
   Result:=find(k,i+1);
 end;
begin
 for i:=1 to 10 do begin
  a[i]:=random(10);b[i]:=random(10);
  write(a[i]:5);
 end;writeln;
 for i:=1 to 10 do begin
  write(b[i]:5);
 end;writeln;
 {Ищем}
 for i:=1 to 10 do begin
  k:=find(b[i],1);
  if k=11 then begin
   write(b[i]:5);
   if max<b[i] then max:=b[i];
  end;
 end;writeln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

Но! Я специально допустил тут две неточности, которые преподаватель не простит.
Одна из них с выводом, другая с инициализацией переменной максимума. Найди их.