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

k:=0;
for i:=1 to n do
for j:=1 to k do
if a[i]<>b[j] then begin
inc(k);
b[k]:=a[i];
end;

Program zadan31;
var
a:array[1..100] of integer;
b:array[1..100] of integer;
i,j,n,k:integer;
begin
 writeln('vvedite razmernost massiva');
 readln(n);
 for i:=1 to n do
  begin
  writeln('vvedite znachenie elementa');
  readln(a[i]);
  end;
   begin
   k:=0;
   for i:=1 to n do
   for j:=1 to k do
   if a[i]<>b[j] then
   inc(k);
   b[k]:=a[i];
   end;
   writeln(b[k]);
end.

uses
  crt;
const
  n=10;
var
  a,b:array[1..n]of integer;
  i,j,c,bmax:integer;
begin
  clrscr;
  bmax:=0;
  {задаем выводим}
  writeln('Первый массив:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    write(a[i]:2,' ')
  end;
  writeln(']');
  {находим и записываем}
  for i:=1 to n do
  begin
    c:=0;
    for j:=1 to bmax do
      if a[i]=b[j] then
        inc(c);
    if c=0 then
    begin
      inc(bmax);
      b[bmax]:=a[i]
    end;
  end;
  {выводим второй массив}
  writeln('Второй массив:');
  write('[ ');
  for i:=1 to bmax do
    write(b[i]:2,' ');
  writeln(']')
end.