Удаление из массива чисел, встречающихся более 1 раза

uses crt;
const n=10;
type t=array[1..n] of integer;
var a,b:t;
    i,k,m,j:integer;
begin
writeln('Исходный рандомный массив');
randomize;
for i:=1 to n do begin
   a[i]:=random(10);
   write(a[i]:3);
   end;
for i:=1 to n do begin
   m:=0;
   for j:=1 to k do
   if (a[i]=b[j]) then
   inc(m);
   if m=0 then begin
      inc(k);
      b[k]:=a[i];
      end;
   end;
writeln;
writeln('Изменённый массив');
for i:=1 to k do
write(b[i]:3);
end.

uses crt;
type t=array[1..10] of integer;
var a,b:t;
    n,i,k,m,j:integer;
begin
n:=10;
writeln('Исходный рандомный массив');
randomize;
for i:=1 to n do
 begin
   a[i]:=random(10);
   write(a[i]:3);
 end;
writeln;
i:=1;
while i<n do
 begin
  j:=i+1;
  m:=0;
  while j<=n do
   begin
    if a[j]=a[i] then
     begin
      m:=1;
      for k:=j to n-1 do
      a[k]:=a[k+1];
      n:=n-1;
      end
     else j:=j+1;
   end;
  if m=1 then
   begin
    for k:=i to n-1 do
    a[k]:=a[k+1];
    n:=n-1;
   end
  else inc(i);
 end;
if n=0 then write('Все элементы удалены')
else
 begin
  writeln('Удаление элементов, встречающихся более 1 раза');
  for i:=1 to n do
  write(a[i]:3)
 end
end.

uses crt;
type t=array[1..1000] of integer;
var a,b:t;
    p,x,l,i,j,n,k:integer;
begin
l:=9999999;
write('Введите количество элементов в массиве = ');readln(n);
clrscr;
writeln('Массив');
randomize;
for i:=1 to n do begin
   a[i]:=random(10);
   write(a[i]:3);
   end;
for i:=1 to n do b[i]:=a[i];
writeln;
writeln('Неповторяющиеся элементы');
for i:=1 to n do begin
  x:=a[i];
  k:=0;
  for p:=1 to n do
  if a[p]=x then k:=k+1;
  if k=1 then write(x:3,'');
  end;
  writeln;
writeln('Неповторяющие элементы в виде массива');
for i:=1 to n do begin
  x:=a[i];
  k:=0;
  for p:=1 to n do
      if a[p]=x then k:=k+1;
      if k=1 then  else b[i]:=l;
  end;
for i:=1 to n do
if b[i]=l then write('-':3,'') else
    write(b[i]:3,'');
end.