Поиск одинаковых элементов Опции

[Selena]

Мне нужно найти одинаковые элементы матрицы и сформировать из них вектор. У меня не получается их найти, подскажите как это сделать. Заранее спасибо

 
Program lab1_1;
Uses WinCrt;
Var
A:Array[1..5,1..6] of integer;
B:Array[1..30] of integer;
i,j,k:Byte; f:Text;
Begin
 WriteLn('Типовые приемы ввода и вывода элементов массива');
 WriteLn('Задание 1');
 Randomize;
   For i:=1 to 5 do
     For j:=1 to 6 do
      Begin
      A[i,j]:=Random(20);
      End;
 WriteLn('Массив A');
    For i:=1 to 5 do
      begin
       For j:=1 to 6 do
        Begin
         Write(A[i,j]:3,' ');
        End;
       WriteLn;
      end;
{Поиск одинаковых элемнтов}
 For i:=1 to 5 do
  For j:=1 to 6 do
   begin
    if A[i,j]=A[i,j] then
     begin
     k:=k+1;
     B[k]:=A[i,j];
     end;
   end;

  WriteLn('Полученный вектор');
 For i:=1 to k do
   Write(B[i]:3,' ');


 end.

[volvo]

const
  lines = 5;
  columns = 6;
type
  matrix = array[1 .. lines, 1 .. columns] of integer;

  pvector = ^vector;
  vector = array[1 .. lines * columns] of integer;

function has_dup(var ar: vector; n: integer): boolean;
var i, j, T: Integer;
begin
  has_dup := true;
  for i := 1 to n do
    for j := i + 1 to n do
      if ar[i] = ar[j] then exit;
  has_dup := false;
end;

if has_dup(vector(a), lines * columns) then // есть дублирующиеся элементы
else // нет ...