[serj71298]

Наконец-то разобрался.
Всем, кто помогал, спасибо. Вроде все работает.
Скидываю [код], может кому пригодится.
Если можно проще поправьте.

Код:

 Type Mass  = array of real;
        Mass1 = array of real;
var
  Form1: TForm1;
  a: Mass;
  b: Mass1;
  n: Longint;

implementation

{$R *.dfm}

Function nalichie (a,b: array of real; n: Longint): Boolean;
var
   i: Longint;

begin
   Result:= True;
   i:= 0;

 repeat
 if a[i] = b[i] then Result:= False
 else i:=i+1;
 Until (i>n) or (Result= False);

  if Result then
  ShowMessage ('В массивах нет равных элементов')
  else
  ShowMessage ('В массивах равные элементы'
  + #13+ ' Элемент №'' '+ IntToStr (i));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 n:= StrToInt (Trim (Edit1.Text));
 SetLength(a,n);
 StringGrid1.RowCount:=0;
 StringGrid1.ColCount:=n;
 end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 n:= StrToInt (Trim (Edit2.Text));
 SetLength(b,n);
 StringGrid2.RowCount:=0;
 StringGrid2.ColCount:=n;
 end;

procedure TForm1.Button3Click(Sender: TObject);
var
   i: Longint;

begin
 for i:=0 to n-1 do
    a[i]:= StrToFloat (StringGrid1.cells[i,0]);
 for i:=0 to n-1 do
    b[i]:= StrToFloat (StringGrid2.cells[i,0]);
    nalichie (a,b,n)
end;