Упрощение задачи

begin
   
   for i := 1 to n do begin
      write('Введите число № ', i, ': ');
      readln(a[i]);
   end;
   
   k := 0;
   for i := 1 to n do begin
     
      repeated := false;
      for j := 1 to n do
         if (i <> j) and (a[i] = a[j]) then begin
            repeated := true; 
         end;
         
      input := true;
      if repeated then begin
         for m := 1 to k do 
            if b[m] = a[i] then begin
               input := false; 
            end;
         if input then begin
            k := k + 1; 
            b[k] := a[i]; 
         end;
      end;
   end; 
   writeln('Количество чисел, входящих в последовательность более чем по одному разу: ', k);

var a:array[1..20] of integer;
    n,i,j,k,p,q:integer;
begin
repeat
write('Введите размер массива от 2 до 20 n=');
readln(n);
until n in [2..20];
for i:=1 to n do
 begin
  write('Введите число № ', i, ': ');
  readln(a[i]);
 end;
q:=0;
i:=1;
while i<n do
 begin
  j:=i+1;
  while(j<=n)and(a[j]<>a[i]) do inc(j);
  writeln('n=',n,' j=',j);
  if j<=n then //есть повтор
   begin
    q:=q+1;//считаем
    for j:=n downto i+1 do//ищем с конца такие же
    if a[j]=a[i] then //если есть, удаляем его
     begin
      if j<n then //если не последний
      for k:=j to n-1 do a[k]:=a[k+1];//сдвигаем на него конец массива
      n:=n-1; //уменьшаем размер массива
     end
   end;
  i:=i+1;//следующий элемент
 end;
 writeln('Количество чисел, входящих в последовательность более чем по одному разу: ',q);
 end.