Двумерный массив: Определить пару строк, содержащих наибольшее число общих символов

uses crt;
const n=10;
var i,j,max,l,r,temp:integer;
a:array[1..n,1..n] of char;
 
function FindEqual(x,y:integer):integer;
var i,j,n1:integer;
m,m1:set of char;
begin
n1:=0;
m:=[];{создаем множество неповторяющихся символов 1 строки}
m1:=[];{создаем множество неповторяющихся символов 2 строки}
for i:=1 to n do
if not(a[x,i] in m) then begin {если символ из строки еще не встречался то проверякм}
m:=m+[a[x,i]];{записываем его в множество}
for j:=1 to n do 
if (a[x,i]=a[y,j])and(not(a[y,j] in m1)) then begin {если символ из 2 строки еще не встречался}
m1:=m1+[a[y,j]];
inc(n1);
end;
end;
 
FindEqual:=n1;
end;
begin
randomize;
clrscr;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=chr(random(25)+65);{инициализируем матрицу из букв A..Z}
write(a[i,j],' ');
end;
writeln;
end;
 
l:=1;r:=1;max:=0;
for i:=1 to n do
for j:=1 to n do
if i<>j then begin{чтобы не проверять строку саму с собой}
temp:=FindEqual(i,j);{подсчитываем количество совпадений}
if temp>max then begin
l:=i;
r:=j;
max:=temp;
end;
end;
writeln(l,' ',r,' ',max,'chars');
end.