Дан массив из N элементов.В массив В записать только не повторяющиеся элементы

Const nx = 50;Var A,B,D:array[1..nx]of integer; i,n,j,m,z,k,m1:integer;BeginWriteLn('Введи количество элементов массива'); Read(n); For i:= 1 to N do beginA[i]:= random(20)-5;write(A[i]:3);end;writeln;For i:= 1 to N do beginz:= A[i];k:=0;For j:= i+1 to N do if A[i] = A[j] then k:= k +1;For j:= 1 to m doif A[i] = B[j] then k:= k +1;For j:= 1 to m1 doif A[i] = D[j] then k:= k +1;if k = 0 then begin m:= m + 1; B[m] := z;endelse begin m1:= m1 + 1; D[m1] := z;end;end;writeln('B');For i:= 1 to m do write(B[i]:3);end.