Не получаеться на Паскале

[Bagsi]

Даны две последовательности по n целых чисел в каждой (n=30).
Найти наименьшее среди тех чисел первой последовательности, которые не входят во вторую последовательность.
У меня не получеться сравнить min с вторым массивом.

PHP код:

program es85;
uses crt;
const max_n=50;
type
    massiv=array[1..max_n] of integer;
var
   a,b:massiv;
   i,j,n:integer;
   min,nmin,buf:integer;
begin
     clrscr;
     write('razmer massiva n=');
     readln(n);
     writeln('Massiv a');
       for i:=1 to n do           {zapolnaem massiv a}
       begin
            write('a[',i,']=');
            readln(a[i]);
       end;
       writeln('Massiv b');
       for i:=1 to n do           {zapolnaem massiv b}
       begin
            write('b[',i,']=');
            readln(b[i]);
       end;
     min:=a[1];                   {Nohodim minimalni element massiva a}
     for i:=1 to n do
     begin
          if a[i]<min then
          begin
               min:=a[i];
               nmin:=i;
          end;
     end;
     writeln('min=',min,'  nmin=',nmin);
     for j:=1 to n-1 do           {Uporadochivaem massiv a}
     for i:=1 to n-j do
     begin
          if a[i]>a[i+1] then
          begin
               buf:=a[i];
               a[i]:=a[i+1];
               a[i+1]:=buf;
          end;
     end;
     writeln('Uporadichenni massiv a');
     for i:=1 to n do
     writeln(a[i]);
     for j:=1 to n-1 do           {Uporadochivaem massiv b}
     for i:=1 to n-j do
     begin
          if b[i]>b[i+1] then
          begin
               buf:=b[i];
               b[i]:=b[i+1];
               b[i+1]:=buf;
          end;
     end;
     writeln('Uporadichenni massiv b');
     for i:=1 to n do
     writeln(b[i]);
     readkey;
end. 


[Stilet]

1. Вводим оба массива
2. в третий массив вводим лишь те элементы первого которые не входят во вторую последовательность
3. Сортируем третий массив и выводим его краиние элементы на экран

Действуй.