Убрать из массива повторяющиеся элементы

[jirtreck]

В заданной матрице V найти максимальное из чисел, встречающееся более одного раза.
Исходную матрицу вывести в общепринятом виде.
Повторяющиеся элементы матрицы вывести в виде строки. Результат вывести в произвольной форме.

Правильно выводит повторяющиеся элементы, но если в массиве их встречается более 2х раз происходит вот что: http://prntscr.com/absef3

Как можно очистить массив от повторов? Есть функция наподобие unique из matlab?
Можно ли как-то поправить мой алгоритм, чтобы таких ошибок не было?

program MaxMat;
var i,j,i2,j2,mx: integer;
type mas=array [0..100] of real;
type mat=array [0..5,0..5] of real;
var M0:mas;
var V:mat;

//Ввод матрицы
begin
for i:=0 to 5 do
begin
for j:=0 to 5 do
begin
V[i,j]:=random(100);
end;
end;

//Вывод исходной матрицы
writeln('Исходная матрица:');
writeln;
mx:=0;
for i:=0 to 5 do
begin
for j:=0 to 5 do
begin
write(V[i,j],' ');

//Запись повторяющихся элементов в одномерный массив
for i2:=0 to i-1 do
begin
for j2:=0 to j-1 do
begin
if (V[i,j]=V[i2,j2]) then
begin 
M0[mx]:=V[i,j];
mx:=mx+1;
end;
end;
end;


end;
writeln;
end;
writeln;

//Вывод элементов матрицы М0
writeln('Повторяющиеся элементы:');
writeln;
for i:=0 to mx-1 do
write(M0[i],' ');
writeln;
writeln;


end.

[phomm]

if (V[i,j]=V[i2,j2]) then
begin 
// цикл по всему массиву М0
  for my := 0 to mx do
  begin
    // если дошли до конца цикла
    if my = mx then 
    // значит дубль не найден - запомним значение
    begin
      M0[mx]:=V[i,j];
      mx:=mx+1;
    end
    else
    // иначе идя по циклу прерываем его при дубле
    if M0[my] = V[i,j] then
      Break;
  end;      
end;

Примерно так

[jirtreck]

Ввел новую переменную и заменил мою конструкцию если.

[FPaul]

Представить матрицу в виде массива (мысленно - только преобразованием индексов), отсортировать по возрастанию (или убыванию). А дальше искать в "массиве" максимальное число, у которого сосед равен ему же.

[newerow1989]

var i,j,i2,j2,i3,mx: integer;
type mas=array [0..100] of real;
type mat=array [0..5,0..5] of real;
var M0:mas;
var V:mat;
    d:boolean;
begin
   for i:=0 to 5 do
   begin
      for j:=0 to 5 do
      begin
         V[i,j]:=random(100);
      end;
   end;

   writeln;
   mx:=0;
   for i:=0 to 5 do
   begin
      for j:=0 to 5 do
      begin
         write(V[i,j]:2:0,' ');
         
         for i2:=0 to 5 do
         begin
            for j2:=0 to 5 do
            begin
               if (V[i,j]=V[i2,j2]) and (i<>i2) and (j<>j2) then
               begin
                  d:=false;
                  For i3:=0 to mx-1 do
                  If M0[i3]=V[i,j] then
                  begin
                     d:=true;
                     Break;
                  end;
                  If not d then
                  begin
                     M0[mx]:=V[i,j];
                     mx:=mx+1;
                  end;
               end;
            end;
         end;

      end;
      writeln;
   end;
   writeln;

   writeln;
   for i:=0 to mx-1 do
      write(M0[i]:2:0,' ');
   writeln;
   writeln;
   readln;
end.

[jirtreck]

Работает, благодарю за помощь!

Правда, алгоритм в коде не до конца понял, буду разбираться.

Нету способа избавить от повторов уже имеющийся массив? Вот к примеру: дан массив 12314551, просят избавить его от повторяющихся цифр, чтобы осталась только одна из них, как это сделать? Порядок вывода неважен.

[newerow1989]

var i,j:integer;
    s:string;
    d:boolean;
begin
   Write('s = ');Readln(s);
   Writeln;
   Write('s1 = ');
   For i:=1 to Length(s) do
   begin
      d:=true;
      For j:=1 to i-1 do
         If s[i]=s[j] then
            d:=false;
      If d then
         Write(s[i]);
   end;
   Writeln;
   Readln;
end.

[jirtreck]

Про перевод в string не подумал, хотя раньше так делал в формах. Спасибо