Переписать все числа, которые повторяются в массиве A[n] в массив B[n] по одному разу.

var
  A, B: array[1..200] of integer;
  N, i, j, c: integer;
  f: boolean; // f = true - элемент встречается только 1 раз
              // f = false - элемент встречается больше 1 раза  
  
begin
  N := 50;
  writeln('Исходный случайный массив:');
  randomize;
  for i := 1 to N do
  begin
    a[i] := -10 + random(21); //Случайный элемент [-10, 10]
    write(' ', a[i]) //Выводим элемент
  end;
  writeln;
  c := 1; //Начальное количество элементов нового массива
  b[1] := a[1]; //Первый элемент нового массива равен первому элементу исходного
 { Проверяем остальные элементы: } 
  for i := 2 to n do 
  begin
    f := true; //Элемент еще не встречался
   { Сравниваем i-й элемент массива со всеми предыдущими: } 
    for j := 1 to i - 1 do
      if a[i] = a[j] then //Если элементы равные..
      begin 
        f := false; //то присваиваем соответствующее f..
        break //и выходим из цикла (дальше не имеет смысла проверять)
      end;
    if f then //Если элемент встретился 1 раз..
     begin 
       inc(c); //то увеличиваем количество элементов нового массива на 1..
       b[c] := a[i] //и присваиваем найденный элемент новому массиву
     end
  end;
  writeln;
 { Выводим все найденные элементы: } 
  writeln('Массив различных чисел:');
  for i := 1 to c do write(' ', b[i])
end.

uses crt;
const nmax=200;
var a,b:array[1..nmax] of integer;
    a1:array[1..nmax] of boolean;
    n,m,i,j:byte;
begin
randomize;
repeat
write('Размер массива А от 1 до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив A');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:4)
 end;
writeln;
for i:=1 to n do{массив для фиксации просмотренных элементов}
a1[i]:=false;
m:=0;{новый массив}
for i:=1 to n do
if not a1[i] then{если еще не было такого}
 begin
  m:=m+1;
  b[m]:=a[i]; {пишем его в новый масив}
  for j:=i to n do {все такие же помечаем}
  if a[j]=a[i] then a1[j]:=true;
 end;
writeln('Массив В');
for i:=1 to m do
write(b[i]:4);
end.