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

uses Crt;
const
    n=4; { количество строк }
    
type
    TMass = array [1..n] of string[20]; { объявляем массив }
 
{ Функция просмотра строки массива и подсчет совпадений }
{   где i  - номер строки;                              }
{       el - элемент, совпадение которого в i-ой строке }
{            подсчитывают                               }
function LookingLine (i: integer; el: char; var mass: TMass): integer;
var
    j: integer;
    Max: integer;
    st: string;
begin
    Max:=0;
    st:=Mass[i];
    for j:=1 to length(Mass[i]) do
        begin
            if el=st[j] then inc(Max);
        end;
    LookingLine:=MAX;
end;
 
 
{ процедура считывания массива из файла }
procedure OpenFile(var Mass: TMass);
var
    i: integer;
    f: text;
    fname: string[20];
begin
    fname:='test.txt';
    assign(f,fname);
    
    {$I-}
    reset(f);
    {$I+}
    
    if IOResult<>0 then begin
        writeln('Error access to the file: the file "', fname, '" not found');
        write('For ending press <Enter>');
        readln;
        halt(1);
    end;
    writeln('File "',fname,'" has opened');
    
    for i:=1 to n-1 do
            Readln(f,Mass[i]);
    Readln(f,Mass[n]);
    
    close(f);
end;
 
    
VAR
    mass: TMass;
    cnFirst,cn_1: integer; { кол-во совпадение в первой строке }
    cnSecond,cn_2: integer; { кол-во совпадение во второй строке }
    lnFirst,ln_1: integer; { первая строка, в которой наибольшее совпадение i,j-го элемента }
    lnSecond,ln_2: integer; { вторая строка по наибольшему кол-ву совпадений i,j-го элемента }
 
    el,el_1: char; { элемент сравнения }
    
    i,j,k: integer; { переменный для задания цикла }
    
    st: string; { строка массива }
    
    Max: integer;
    
    key1,key2: integer; { ключи подсчета совпадений }
 
{ ОСНОВНАЯ ПРОГРАММА }
BEGIN
    ClrScr;
    OpenFile(mass); { открытие и считывание массива из файла }
    writeln;
 
    { вывод на экран полученного массива }
    for i:=1 to n-1 do
            Writeln(Mass[i]);
    Writeln(Mass[n]);
    
    { поиск двух строк в которых максимальное совпадение одинаковых символов }
    k:=1; { номер строки }
    Repeat
 
        st:=Mass[k];
        j:=1; { номер символа в строке }
        Repeat
            key1:=0;
            el:=st[j];
            cnFirst:=0;
            for i:=1 to n do
                begin
                Max:=LookingLine(i,el,mass);
                    if Max > cnFirst then begin
                        cnFirst:=Max;
                        lnFirst:=i;
                    end;
                end;
    
            cnSecond:=0;
            for i:=1 to n do
                begin
                    Max:=LookingLine(i,el,mass);
                    if (cnSecond < Max) and (Max < cnFirst) then begin
                        cnSecond:=Max;
                        lnSecond:=i;
                    end;
                end;
    
            key1:=cnSecond;
            
            if (cnFirst > cn_1) and (key1>key2) then
                begin
                    cn_1:=cnFirst;
                    ln_1:=lnFirst;
                    el_1:=st[j];
            end;
            
            if (cnSecond > cn_2) and (key1>key2)  then
                begin
                    cn_2:=cnSecond;
                    ln_2:=lnSecond;
                    el_1:=st[j];
                end;
    
            inc(j);
        Until j > length(Mass[k]);
        
        inc(k);
    Until k>n;
 
    Write('Lines');
    Write(' "',ln_1,'" (has ',cn_1,' coincidences)');
    writeln(' and "',ln_2,'" (has ',cn_2,' coincidences)');
    writeln('have the most coincidences of element "',el_1,'"!');
    writeln;
    writeln('For ending press <ENTER>:');
    readln;    
END.