убираем дубликаты после сортировки в одномерном массиве Опции

[18192123]

uses crt;
const n=10;
type
 	vect=array[1..n] of integer;
var
	a:=vect;
	i,j,t:integer;
begin
clrscr;
writeln (‘vvedite elementy massiva’);
for i:=1 to n do read (a[i]);
writeln (‘sortirovka’);
for j:=1 to n do
begin
for i:=n downto j+1 do
begin
if a[i]<a[i-1] then
begin
t:=a[i];
a[i]:=a[i-1];
a[i-1]:=t;
end;
end;
for i:=1 to n do write (a[i], ‘ ‘);
writeln;
end;
writeln;
writeln (‘massiv otsortirovan’);
(***** *****)
i:=0;
j:=1;
repeat
while (j<=n)and(a[j-1]=a[j]) do
j:=j+1;
if j<=n then
begin
i:=i+1;
a[i]:=a[j];
j:=j+1;
end;
until j>n;
(***** *****)
for j:=1 to n i do write (a[j],’ ‘);
readkey;
end.

объясните пожалуйста как можно подробнее суть выделенной части программы (в этой части убираются числа с одним и тем же значением)
если нужно, напоминаю задание (дан массив целых чисел размера n=10. получить упорядоченный по возрастанию массив, содержащий все различные числа данного массива)

[Lapp]

Суть в том, что, поскольку к этому моменту массив уже отсортирован, то если есть два или более одинаковых элементов, они все будут стоять рядом. Мы проходим по массиву с начала до конца, увеличивая счетчик j. Другой счетчик, i, служит для подсчета различных элементов.

i:=0;                                     { Подготавливаем счетчик различных элементов}
j:=1;                                     { Подготавливаем счетчик всех элементов }
repeat                                    { Цикл по всем элементам (главный) }
  while (j<=n)and(a[j-1]=a[j]) do j:=j+1; { Пропуск одинаковых элементов. j увеличивается, i - нет}
  if j<=n then begin                      { Проверка, что счетчик не вышел за границы массива }
    i:=i+1;                               { Увеличиваем счетчик различных элементов }
    a[i]:=a[j];                           { Перекладываем элемент со старого места j на новое i }
    j:=j+1;                               { Увеличиваем счетчик главного  цикла}
  end;
until j>n;                                { Условие остановки процесса по достижении границы массива}

Я честно разобрал работу фрагмента, но только все же хочу сказать, что он весьма неоптимален (вложено два цикла, что влечет увеличение числа проверок..). Буде мне пришлось бы делать нечто подобное, я сделал бы примерно так:

  i:=1;                        { Подготавливаем счетчик различных элементов}
  for j:=2 to n do begin       { Цикл по всем элементам, кроме первого }
    if a[j]>a[i] then begin    { Если следующий элемент не равен предыдущему, ..} 
      i:=i+1;                  { .. то увеличиваем счетчик различных элементов и ..} 
      a[i]:=a[j]               { .. перекладываем элемент со старого места j на новое i }
    end
  end;                         { Закрываем тело цикла }