Нужно разобраться ,не могу понять в чём ошибка, вроде всё правильно(условие задачи:на фотке вложенной, 5 сверху)!

type
  mass = array [1..5] of Integer ;
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    btn1: TButton;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  A, B, C: mass;
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
var
  i: Integer;
  f: TextFile;
begin
  AssignFile(f, 'A.txt');
  Reset(f);
  for i:=1 to 5 do
  begin
    read(f, A[i]);
    lbl1.Caption:=lbl1.Caption+FloatToStr(A[i])+'   ';
  end;
  CloseFile(f);
 
  AssignFile(f, 'B.txt');
  Reset(f);
  for i:=1 to 5 do
  begin
    read(f, B[i]);
    lbl2.Caption:=lbl2.Caption+FloatToStr(B[i])+'   ';
  end;
  CloseFile(f);
end;
 
procedure TForm1.btn2Click(Sender: TObject);
var
  i, s: Integer;
 
begin
  for i:= 1 to 5 do
  begin
    repeat
      begin
        s:=Random(20);
      end;
    until (A[i]<>5 and B[i]<>7);
    C[i]:=s;
    lbl3.Caption:=lbl3.Caption+IntToStr(C[i])+'  ';
  end;
end;
 
end.

type
  mass5 = array [0..4] of Integer; // Нумерация изменена от 0 до 4, так как, при передаче массива в процедуру тоже получается так же
  mass10 = array [0..9] of Integer;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    A, B: mass5;
    C: mass10; // Выходной массив может содержать до 10 элементов, если все числа в A и B разные
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  f: TextFile;
begin
  Label1.Caption := '';
  Label2.Caption := '';
 
  AssignFile(f, 'A.txt');
  Reset(f);
  for i := 0 to 4 do
  begin
    read(f, A[i]);
    Label1.Caption := Label1.Caption + IntToStr(A[i]) + '  '; // Массивы с integer, поэтому, FloatToStr тут лишнее
  end;
  CloseFile(f);
 
  AssignFile(f, 'B.txt');
  Reset(f);
  for i := 0 to 4 do
  begin
    read(f, B[i]);
    Label2.Caption := Label2.Caption + FloatToStr(B[i]) + '  ';
  end;
  CloseFile(f);
end;
 
// Добавление уникальных элементов вынесено в отдельную процедуру, так как, оно используется 2 раза
procedure AddUnique(const A: array of integer; var B: array of integer; var j: integer);
var
  i, k: integer;
  f: boolean; // Флаг уникальности
begin
  // Добавление уникальных элементов из A в B
  for i := Low(a) to High(a) do begin
    f := true; // Установить флаг уникальности значения
    for k := Low(b) to j do // При j=0 цикл не сработает и флаг уникальности останется установлен
      if A[i] = B[k] then begin // Если очередной элемент из A встретился в C, то
        f := false; // сбросить флаг
        Break; // и выйти из цикла
      end;
    if f then begin // Если после цикла флаг установлен, значит, такого значения ещё нет в C
      Inc(j); // Передвинуть указатель на следующий элемент
      B[j] := A[i]; // И записать в него новое уникальное значение
    end;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  i, j: integer;
begin
  j := -1; // Ничего нет в выходном массиве C
  // Добавление уникальных элементов из A
  AddUnique(A, C, j);
 
  // Добавление уникальных элементов из B
  AddUnique(B, C, j);
  // На выходе j содержит номер последнего уникального элемента в массиве C
 
  // Вывод массива C
  Label3.Caption := '';
  for i := 0 to j do
    Label3.Caption := Label3.Caption + FloatToStr(C[i]) + '  ';
end;
 
end.