Задача 11 Урок 15

Задача 11 урок 15

Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга, если среди есть неуникальные элементы, то удалите их, сдвинув значения влево, заполняя оставшиеся справа ячейки нулями.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.
Например для:

|1|-3|5|-3|9|5|8|

получим:

|1|9|8|0|0|0|0|

program U15Z11;
var a,b: array [1..7] of integer;
    i,j,n,k: integer;
begin
  randomize();
  for i:=1 to 7 do
    begin
      a[i]:=random(15)+1;
      write(a[i],'|');
    end;
  n:=1;
  k:=0;
  writeln();
  for i:=1 to 6 do
    begin
      for j:=i+n to 7 do
        begin
          if (a[i]=a[j]) then
            begin
              a[j]:=0;
              k:=1;
            end;
          n:=n+1;
        end;
      if (k=1) then
        begin
          a[i]:=0;
          k:=0;
        end;
      n:=1;
    end;
    k:=1;
  for i:=1 to 7 do
    if (a[i]<>0) then
      begin
        b[k]:=a[i];
        k:=k+1;
      end;
  for i:=1 to 7 do
    write(b[i],'|');
  readln();
end.