Двумерный массив. ПАскаль

[stasig]

БУду признателен если поможете с задачей. Взялся решать, и мой огромный код не понравился преподавателю.

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

[Sm1Le]

КОД в студию !

[stasig]

Да он больно здаровый. Вобщем не получился толком. Подскажите чтонибудь. А то так никогда не научусь)

[alex_fcsm]

Может этот поменьше....

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.

[stasig]

А можешь объяснить немного. Я то не всё пока понимаю

[alex_fcsm]

Читайте комментарии и конкретно пишите что непонятно

[stasig]

function FindEqual(x,y:integer):integer;{c этим ниразу не сталкивался, не понятно}

и почему два VAR?

[Манжосов Денис :)]

Друг, вы как вообще код составили для преподавателя, если не можете понять почему два Var здесь?
1 Var - глобальные переменные
2 Var - Переменные, относящиеся к функции FindEqual

[stasig]

а функция FindEgual что делает?

[Sm1Le]

количество найденных символов ! Посмотри и про Трасируй не ленись ! Тебе же надо ! =)