Проверка матрицы на наличие одинаковых строк

[Victory1]

Есть матрица BV[i,j] типа integer, как осуществить проверку на наличие одинаковых строк и если они будут найдены, затереть одну из двух одинаковых и поднять на ее место остальные строки?

[Gongled]

Мой вариант:

program prg;
uses CRT;
const
  n = 4;
type
  AR2 = array[1..n,1..n] of integer;
var
  a : AR2;
  i, j, k, t, z : integer;
  key : boolean;
begin
clrscr;

// Читаем массив
for i:=1 to n do
begin
    for j:=1 to n do
    begin
        read(a[i,j]);
    end;
end;

for k:=1 to n-1 do
begin
     for i:=k+1 to n do
     begin
         // Если равны первые элементы
         if a[k,1] = a[i,1] then
         begin
         // Ключ проверки равенств
         key := true;

             for j:=1 to n do
             begin
                 // Проверяем равенство
                 if a[k,j] = a[i,j] then key := true
                 else
                 // Если есть несоответствие, то break
                 begin
                     key := false;
                     break;
                 end;
             end;
             
             // Если всё прошло без ошибок,
             // то запоминаем номер строки и break.
             if key then
             begin
                 z := i;
                 break;
             end;
             
         end;
     end;
end;

// Поднимаем нижние на уровень выше
while z <> n do
begin
    for i:=1 to n do
    begin
        a[z,i] := a[z+1,i];
    end;
    inc(z);
end;

// Нулим последние
for i := 1 to n do a[z,i] := 0;

// Выводим результат
writeln('Результат: ');
for i:=1 to n do
begin
    for j:=1 to n do
    begin
        if a[i,j] <> 0 then write(a[i,j]:4);
    end;
    writeln;
end;

end.