Сформировать два массива целых чисел определенной длины. Вывести на печать числа, встречающиеся только в одном массиве — Pascal(Паскаль)

uses
crt;
 
var
    A, B: array[1..100] of Integer;
    i, j: Integer;
    k: Bool;
 
begin
clrscr;
    randomize;
    for i:= 1 to 100 do
    begin
        A[i] := random(100);
        B[i] := random(100);
    end;
    for i := 1 to 100 do
    begin
        k := false;
        for j := 1 to 100 do
            if A[i] = B[j] then
            begin
                k := true;
                continue;
            end;
        if k = false then
            write("  ", A[i]);
    end;
writeln;
    for i := 1 to 100 do
    begin
        k := false;
        for j := 1 to 100 do
            if B[i] = A[j] then
            begin
                k := true;
                continue;
            end;
        if k = false then
            write("  ", B[i]);
    end;
readkey;
end.