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

[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.

А можно ли сделать программу без применения (FindEqual), просто в универе это не проходится. А препод требует без этого. А я еще не совсем понимаю.

[stasig]

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

[stasig]

А этот код не рабочий. Помогите найти ошибку.

[stasig]

:
((((((((((((((((((((((((((

[alex_fcsm]

Что именно не работает?
P.S. FindEqual считает число совпадений.

[stasig]

a[i,j]:=chr(random(25)+65);{инициализируе м матрицу из букв A..Z}
write(a[i,j],' ');
end;
writeln;
end; {Error "." expected.} правельно же вроде, а не работает

не работает в этом месте.

[alex_fcsm]

Что значит вроде? Вы пробывали скопировать из браузера и вставить? У меня работает а у Вас нет.

[stasig]

а как из браузера вставить?

[alex_fcsm]

Ctrl с ->ctrl v