помогите решить задачу на одномерный массив!, удаление элементов Опции

[tatyana]

удалитьвсе повторяющиеся элементы массива, оставив первое вхождение

[klem4]

 i := 1;
   while(i<=n) do begin
      j := i + 1;
      while(j<=n) do
       if x[i] = x[j] then begin
          for t := j to n-1 do
           x[t] := x[t+1];
          dec(n);
       end
        else inc(j);
       i := i + 1;
   end;

В следующий раз пользуйтесь поиском, задача решалась неоднократно ...