Задача с двумерным массивом.

[svobodys]

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


Код:

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.

Вопрос, можно ли сделать по другому, проще?

Помогите пожалуйста, очень нужно.