Заполнить массив случайными целыми числами и выделить в другой массив все числа, которые встречаются более одного раза.(паскаль)

Const  n = 15; var  a, b: array[1..n] of integer;   i, j, step, t: integer;   flag: boolean; begin  randomize;   writeln('исходные элементы массива');   for i : = 1 to n do  begin      a[i] : = random(10) - 5;       write(a[i]: 4)  end;   { сортируем массив (метод шелла) }  step : = n div 2;   while step > 0 do   begin      for j : = n - step downto 1 do       begin          i : = j;           while i < = n - step do           begin              if a[i] > a[i + step] then              begin                  t : = a[i]; a[i] : = a[i + step]; a[i + step] : = t              end;               i : = i + step          end      end;       step : = step div 2  end;   {  проходим по массиву и если элемент встречается более одного раза подряд,  переносим его в другой массив  }  j : = 0; t : = a[1]; flag : = false;   for i : = 2 to n do  begin      if (a[i] = t) and (not flag) then      begin          j : = j + 1; b[j] : = t; flag : = true      end      else begin flag : = false; t : = a[i] end  end;   writeln;   writeln('отобранные элементы массива');   for i : = 1 to j do write(b[i]: 4);   writelnend.тестовое решение: исходные элементы массива  -2    4    1  -3  -1  -2  -5  -1    2    4    1    3  -5  -2  -3отобранные элементы массива  -5  -3  -2  -1    1    4

Program task31153355; var   x, y, a, b: integer; begin   write('введите a и b: ');   readln(a, b);   x : = 2*sqr(a) + b;   y : = 2*sqr(b) + a;   writeln(x, ' ', y); end.