Найти в матрице две одинаковые строки и вывести их

uses crt;
type Tmatr=array[1..50,1..50] of integer;
var a,b:Tmatr;
    n,m,i,j,s1,s2:integer;
procedure SortStr(var z:Tmatr);{сортировка строк массива по возрастанию методом пузырька}
var i,j,k,x:integer;
begin
for i:=1 to n do
for j:=1 to m-1 do
for k:=1 to m-1 do
if z[i,k]>z[i,k+1] then
    begin
      x:=z[i,k];
      z[i,k]:=z[i,k+1];
      z[i,k+1]:=x;
    end;
end;
procedure Sravn(z:tmatr;var s1:integer;var s2:integer);{процедура сравнения}
var i,j,k,t,q:integer;
begin
q:=0; {переменная для фиксации события совпадения строк}
for i:=1 to n-1 do
for k:=i+1 to n do
  begin
    t:=0;
    for j:=1 to m do
    if z[i,j]=z[k,j] then t:=t+1;{если  элементы двух строк совпадают}
    if t=m then {если совпали все}
      begin
       q:=1; {фиксируем событие}
       s1:=i; {запоминаем первую стороку}
       s2:=k;  {запоминаем первую стороку}
       exit; {заканчиваем поиск}
      end;
  end;
if q=0 then {если совпадений нет, сообщаем}
   begin
    writeln('Takih strok net!');
    readln;
    halt;
   end;
end;
 
begin
clrscr;
write('Vvedite kolicestvo strok n=');readln(n);
write('Vvedite kolicestvo stolbcov m=');readln(m);
writeln('Vvedite elementy matricy:');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);  {елементы удобно вводить по строкам через пробел, в конце строки Enter}
readln;
clrscr; {очищаем экран и выводим матрицу}
writeln('Matrica:');
for  i:=1 to n do
   begin
     for j:=1 to m do
     write(a[i,j]:4);
     writeln;
   end;
b:=a; {запоминаем неотсортированную матрицу}
SortStr(a); {сортируем по строкам}
Sravn(a,s1,s2); {ищем одинаковые}
writeln('Elementy strok ',s1,' i ',s2,' ravny'); {выводим сообщение}
for j:=1 to m do write(b[s1,j],' '); {первая совпавшая строка}
writeln;
for j:=1 to m do write(b[s2,j],' '); {вторая совпавшая строка}
readln
end.