• Помогите на паскале.дан целочисленный массив.удалить из массива все одинаковые элементы оставив их последние вхождения.

const n=30;var a: array[1..n] of integer;    tek,k,i,j: integer;begin{ заполнение массива и вывод на экран }  for j:=1 to n do  begin     a[j]:=Random(20);     write(a[j],' ');        if (j mod 10 = 0) then writeln;  end;  writeln;{ цикл обработки массива }  for i:=1 to n do  begin    tek:=a[i];    k:=i;{ просмотр на повторные }    for j:=i+1 to n do     begin      if (a[j]=tek) then      begin        a[k]:=0;        k:=j;      end;    end;  end; { конец обработки массива }{ вывод итогового массива на экран }  for i:=1 to n do  begin     write(a[i],' ');    if (i mod 10 = 0) then writeln;  end;end.