pascal 去除相邻而且重复随机数要怎么办?求一个思路.

把后面重复的数字改为0,在输出时把不等于0的数输出即可!
去重程序：
var
a:array[1。。200]of longint;
i,n,b,m:longintr;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for b:=i+1 to n do
begin
if a[i]=a[b] then a[b]:=0;
end;
m:=0;
for i:=1 to n do
begin
if a[i]0 then inc(m);
end;
writeln(m);
for i:=1 to n do
if a[i]0 then write(a[i],' ');
end。