Из числовой последовательности удалить элементы.

[Тарас1]

Помогите пожалуйста решить задачу с массивом:
Пытался сам понять, искал похожую, но сам PASCAL знаю очень плохо, поэтому если не сложно: Из числовой последовательности удалить все элементы, кратные её минимальному чмслукроме самого числа.

[ROMA2PVT]

показывайте что сами пытались сделать

[Don Karleone]

var
  mas: array [1..10] of integer;  {последовательность чисел}
  min, i, j: integer;
begin
  {ввод последовательности и поиск индекса минимального элемента}
  for i:=1 to 10 do
    begin
       readln(mas[i]);
       if i = 1 then min:=mas[i]
                 else
                   if mas[i] < min then min:=mas[i];
    end;
  {удаляем элементы}
  for i:=1 to 10 do
    begin
      if (mas[i] <> mas[min]) and ((mas[i] mod mas[Imin]) = 0)
        then
            for j:=i to 9 do
               mas[j]:=mas[j+1];           
    end;
end;

вроде так но я не проверял