Найти наименьший из общих элементов двух массивов из 10-ти целых чисел.

program mass;
    uses crt;
    const n=20;
type Tmass=array[1..n] of integer;
procedure gen2(a,b,kol:integer;var x:Tmass);
   var i:integer;
      begin
       for i:=1 to kol do
          x[i]:=random(b-a+1)+a;
      end;
procedure vivod2(kol,x,y,razr:integer;x1:Tmass);
   var i:integer;
      begin
        for i:=1 to kol do
        begin
         gotoxy(x+(i-1)*razr,y);
         writeln(x1[i]:razr);
        end;
      end;
   var a,b:Tmass;
   k,s,i,j,mina,minb:integer;
   begin
     clrscr;
     randomize;
     k:=10;
     mina:=a[1];
     minb:=b[1];
      gen2(-10,10,k,a);
      gen2(-10,10,k,b);
      vivod2(k,4,2,3,a);
      vivod2(k,4,5,3,b);
      for i:=1 to k do
      begin
      s:=0;
      ...
      ...
readln;
end.

min := -1;
for i := 1 to N do
begin
  for j := 1 to N do
    if a[i] = b[j] then
      break;
  if a[i] = b[j] then
    if i = 1 then
      min := 1
    else
      if a[i] < a[min] then
        min := i;
end;
if min > -1 then
  WriteLn('Минимум - ', a[min])
else
  WriteLn('Общих нет!');

     mina:=a[1];
     minb:=b[1];

     vivod2(k,4,5,3,b);
     mina:=a[1];
     minb:=b[1];

if min>-1 then WriteLn('Минимум из общих элементов - ', a[min])
       else WriteLn('Общих минимальных элементов нет!');