Удаление из массива повторяющихся элементов

var
a:array[1..100]of integer;
i,j,k,n:integer;
begin
writeln('vvedite kol-vo elementov');
readln(n);
writeln('vvedite elementy');
for i:=1 to n do
read(a[i]);
writeln;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
if a[i]=a[j]then inc(k);
if k=1 then write (a[i],' ');
end;
readln;
end.

program massiv;
var
a,b:array[1..100] of integer;
i,k,m,j,n:integer;
begin
k:=0;
writeln('kol-vo elementov massiva');
readln(n);
writeln('massiv');
write('[');
randomize;
for i:=1 to n do begin
a[i]:=random(10)-3;
write(a[i]:3);
end;
writeln(']');
  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('polychenij massiv');
write('[');
for i:=1 to k do
write(b[i]:3);
writeln(']');
end.

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.