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

uses crt;
var
   i,j,n,k,m:integer;
   a:boolean;
   x,y,z:array[1..100] of integer;
begin
    clrscr;
    k:=0;
    writeln('vvedite razmer massivov x y');
    readln(n,m);
 
    for i:=1 to n do
        begin
             writeln('vvedite ',i,' element v massiv x');
             readln(x[i]);
        end;
 
    for i:=1 to m do
        begin
             writeln('vvedite ',i,' element v massiv y');
             readln(y[i]);
        end;
    for i:=1 to n do
        begin
             a:=true;
             for j:=1 to m do
                 if x[i]=y[j] then
                    a:=false;
             if a then
                begin
                     k:=k+1;
                     z[k]:=x[i];
                end;
        end;
    for i:=1 to m do
        begin
             a:=true;
             for j:=1 to n do
                 if x[j]=y[i] then
                    a:=false;
             if a then
                begin
                     k:=k+1;
                     z[k]:=y[i];
                end;
        end;
    for i:=1 to k do
        write(z[i],' ');
    writeln;
    readln;
end.