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

[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.