Vergleich von zwei eindimensionalen Arrays

[Delphi.Narium]

Nachdem ich dashier Über den Umgang mit Boolean gelesen habe, habt Ihr mich überzeugt:

Delphi-Quellcode:

procedure TForm1.b_vergleichClick(Sender: TObject);
const
  csErfolg = 'Es gibt eine Übereinstimmung in beiden Arrays!' + #13
           + 'Es handelt sich um den Wert %d,' + #13
           + 'der sich in Array 1 an Position %d' +#13
           + 'und in Array 2 an Position %d befindet.';
  csMisserfolg = 'Es gibt keine Übereinstimmung in beiden Arrays.' + #13
               + 'Generiere doch einfach zwei neue Arrays!';
var
  v : boolean;
  s : String;
begin
  s := csMisserfolg;
  for i := 1 to 5 do begin
    for j := 1 to 5 do begin
      v := arr1[i] = arr2[j];
      if v then break;
    end;
    if v then break;
  end;
  if v then s := Format(csErfolg,[arr1[i],i,j]);
  ShowMessage(s);
end;