Помогите переписать программу без функции.

Задача: Вводится массив 4*6. Найти две строки, в которых элементы одинаковы но могут стоять в разной последовательности.

program abc ;

var ar : array [1..4,1..6] of integer ; i,j,n6 : integer ;

function cmpstr (n1,n2 : integer) : boolean ;
var k,k1 : integer ; tmp : array [1..6] of boolean ;
begin
for k := 1 to 6 do
tmp[k] := True ;
n6 := 0 ;
for k := 1 to 6 do
for k1 := 1 to 6 do
if ( (ar[n1,k]=ar[n2,k1]) and tmp[k1] ) then
begin
n6:=n6+1 ;
tmp[k1] := False ;
end ;
if n6=6 then cmpstr := True else cmpstr := False ;
end ;

begin

for i := 1 to 4 do
for j := 1 to 6 do
Read (ar[i,j]) ;
Writeln ('---') ;
for i := 1 to 4 do
begin
for j := 1 to 6 do Write (' ',ar[i,j]) ;
Writeln (' -');
end ;

for i := 1 to 3 do
for j := i+1 to 4 do
if cmpstr(i,j) then Writeln ( 'Matching rows i=',i,' j=',j) ;
Writeln ('---') ;
end.