Помогите с программой на Паскале

[kru]

Помогите с программой на Паскале

пусть даны две последовательности по 30 целых чисел в каждой. найдите наименьшее среди тех чисел первой последовательности,которые не входят во вторую последовательность.

 

[Vladimir_S]

пусть даны две последовательности по 30 целых чисел в каждой. найдите наименьшее среди тех чисел первой последовательности,которые не входят во вторую последовательность.

Да пожалуйста:

Const
 N=30;

Type
 Ar=Array[1..N] of Byte;

Var
 A,B:Ar;
 i,min:Byte;

Function Not_Include(C:Ar;m:Byte):Boolean;
var N_I:Boolean; j:Byte;
begin
 N_I:=false;
 j:=0;
 Repeat
  Inc(j);
  If C[j]=m then N_I:=true;
 Until N_I or (j=N);
 Not_Include:=Not(N_I);
end;

Begin
 Randomize;
 For i:=1 to N do
  begin
   A[i]:=10+Random(N);
   B[i]:=Random(N);
  end;
 Writeln('First sequence:');
 For i:=1 to N do write(A[i]:4);
 Writeln;
 Writeln;
 Writeln('Second sequence:');
 For i:=1 to N do write(B[i]:4);
 Writeln;
 Writeln;
 Write('Minimal element: ');
 min:=2*N;
 For i:=1 to N do
  If (A[i]<min) and Not_Include(B,A[i]) then min:=A[i];
 Writeln(min);
 Readln;
End.