Дана матрица А(М,N)

[Arinaeros]

Дана Матрица А(М,N).Продублировать строки матрицы,где нет повторяющихся элементов

[macomics]

program dvoika;
var
   A: array of array of Currency;
   V: array of Integer;
   i, j, k, l: Integer;
begin
   i := 1;
   repeat
      if i <= 0 then WriteLn('Не верное значение');
      Write('Введите M = ');
      ReadLn(i);
   until i > 0;
   j := 1;
   repeat
      if j <= 0 then WriteLn('Не верное значение');
      Write('Введите N = ');
      ReadLn(j);
   until j > 0;
   SetLength(A, i, j);
   SetLength(V, i);
   for i := Low(A) to High(A) do
      for j := Low(A[i]) to High(A[i]) do begin
         Write('Введите элемент матрицы ', i + 1, ' x ', j + 1, ' = ');
         ReadLn(A[i, j]);
      end;
   l := Low(V);
   for i := Low(A) to High(A) do begin
      for j := Low(A[i]) to High(A[i]) do begin
         k := Low(A[i]);
         while (k < j) and (A[i, j] <> A[i, k]) do inc(k);
         if k < j then break;
      end;
      if k = High(A[i]) then begin
         V[l] := i;
         inc(l);
      end;
   end;
   k := High(A);
   SetLength(A, Length(A) + l, Length(A[i]));
   for i := High(A) downto Low(A) do begin
      if k = i then break;
      for j := Low(A[k]) to High(A[k]) do A[i, j] := A[k, j];
      if V[l - 1] = k then dec(l) else dec(k);
   end;
   WriteLn();
   for i := Low(A) to High(A) do begin
      for j := Low(A[i]) to High(A[i]) do
         Write(A[i, j], ' ');
      WriteLn();
   end;
   WriteLn();
end.

[Arinaeros]

можно ещё в pascalABC?)