Удалить из массива все одинаковые элементы оставив их последние вхождения

uses crt;
var a:array[1..100] of integer;{объявляем массив}
    n,i,j,k,m:integer;
begin
clrscr;
write('Размер массива n=');
readln(n);
writeln('Введите ',n,' элементов массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');{вводим элементы массива}
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');{выводим его на экран}
writeln;
m:=0;{количество элементов массива, которые встречаются 1 раз}
for j:=1 to n do
 begin
  k:=0;{количество вхождений каждого числа от 1 до n}
  for i:=1 to n do
  if a[i]=j then k:=k+1;{считаем вхождения}
  if k=1 then m:=m+1;{если 1, то считаем такие числа}
 end;
if m=n then write('Массив является перестановкой!'){если все по 1 разу}
else write('Массив не является перестановкой!');
readln
end.

uses crt;
var a:array[1..100] of integer;
    n,i,j,k,x:integer;
begin
clrscr;
repeat
write('Размер массива не менее 3 n=');
readln(n);
until n>=3;
writeln('Введите ',n,' элементов массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
repeat
write('Начало интервала перестановки k=');
readln(k);
until(k>=1)and(k<n);
repeat
write('Конец интервала перестановки j>k j=');
readln(j);
until(j>k)and(j<=n);
if j-k<3 then
 begin
   write('Интервал не позволяет делать перестановки.');
   readln;
   exit;
  end;
for i:=k+1 to (k+j)div 2 do{от начала интервала до его середины}
 begin
  x:=a[i];{меняем симметрично середины элементы}
  a[i]:=a[j-i+k];
  a[j-i+k]:=x;
 end;
writeln('Результат:');
for i:=1 to n do
write(a[i],' ');
readln
end.

uses crt;
var a:array[1..100] of integer;
    n,i,j,k,l:integer;
begin
clrscr;
randomize;
write('Размер массива n=');
readln(n);
writeln('Введите ',n,' элементов массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
i:=n;k:=1;{начинаем с конца первый элемент имеет индекс=1}
while i>=k do{пока не придем к началу массива}
 begin
  j:=i-1;{становимся на 1 назад}
  while j>=k do{просматриваем массив к началу}
   begin
    if a[j]=a[i] then{если повтор}
     begin
      for l:=j downto k+1 do{сдвигаем к этому элементу начало массива на 1 вправо, элемент исчезает}
      a[l]:=a[l-1];
      k:=k+1;{индекс первого элемента увеличился на 1}
     end
    else j:=j-1;{если не повтор идем дальше назад}
   end;
  i:=i-1;{проверяем следующий с конца}
 end;
writeln('Результат:');
for i:=k to n do{выводим остаток массива от нового индекса первого элемента}
write(a[i],' ');
readln
end.

uses crt;
var a:array[1..100] of integer;
    n,i,j,x:integer;
begin
clrscr;
randomize;
write('Размер массива n=');
readln(n);
writeln('Введите ',n,' элементов массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
{если модуль первого меньше модуля второго и они оба не ноли}
if (abs(a[i])<abs(a[j]))and(a[i]<>0)and(a[j]<>0)then
 begin
  x:=a[i];{меняем их местами}
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Результат:');
for i:=1 to n do
write(a[i],' ');
readln
end.