Даны два целочисленных массива A(m) и B(n). Найти наибольший элемент массива А, не имеющий себе равных в массиве В.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a:array[1..5] of integer;
  b:array[1..5] of integer;
  i,max:integer;
 
 
implementation
 
{$R *.dfm}
function inl(x:integer):boolean;
var
  j:integer;
  begin
  inl:=false;
  for j:=1 to 5 do
  if x=b[j] then inl:=true;
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:integer;
begin
 for i:= 1 to 5 do
  if Length(StringGrid1.Cells[i-1,0])<>0
    then a[i]:=StrToInt(StringGrid1.Cells[i-1,0])
    else a[i]:=0;
  if Length(StringGrid2.Cells[i-1,0])<>0
    then b[i]:=StrToInt(StringGrid2.Cells[i-1,0])
    else b[i]:=0;
 
 
max:=0;
for i:=1 to 5 do
if a[i]>max then if inl(a[i])=false then max:=a[i];
if max=0 then
label2.Caption:=inttostr(max);
end;
 
end.