Задача на массив из чисел

program chisla;
 
{$APPTYPE CONSOLE}
uses
    SysUtils,
    Windows;
 
var
    a, b: array [1..30] of integer;
    i, n, k, j: integer;
    f: boolean;
begin
setconsolecp(1251);
setconsoleoutputcp(1251);
read(n);
for i:= 1 to n do
   read(a[i]);
k:= 0;
for i:= 1 to n do
begin
   f:= true;
   for j:= 1 to k do
      if (a[i] = b[j]) then
         f:= false;
   if f then
   begin
      inc(k);
      b[k]:= a[i];
   end;
end;
for i:= 1 to k do
   write(b[i], ' ');
readln;
end.

program zadacha4;
{Условие:Пусть даны целые числа A1,A2...,An, среди которых могут быть повторяющиеся.
 Составьте новый массив из чисел, которые входят в последовательность по одному разу.}
 
{$APPTYPE CONSOLE}
uses
  SysUtils,
  Windows;
 
var
    a, b: array [1..30] of integer;
    i,raz,k,j,n: integer;
begin
setconsolecp(1251);
setconsoleoutputcp(1251);
  write('Введите размерность = ');
  read(raz);
  write('Введите массив из ',raz,' элементов = ');
  for i:= 1 to raz do
    read(a[i]);
  k:= 0;
  n:=0;
  for i:= 1 to raz do
  begin
    for j:= 1 to raz do
      if (a[i] = a[j]) and (i<>j) then
        inc(n);
    if n=0 then
    begin
      inc(k);
      b[k]:=a[i];
    end;
    n:=0;
  end;
  for i:= 1 to k do
    write(b[i],' ');
  readln;
  readln;
end.