Олег ЕГоров: программу нахождения чаще всего встречающийся элемент данного массива ( Паскаль )

[11klass]

const n=10;
type Tel=record
      value,i:integer;
      end;
var i,j,maxi,maxj,k,l:integer;
    a:array[1..n,1..n] of TEl;

begin
for i:=1 to n do
begin
 for j:=1 to n do
   begin
    a[i,j].value:=random(5)+1;
    a[i,j].i:=0;
    write(a[i,j].value:2);
   end;
writeln;
end;
for i:=1 to n do
 for j:=1 to n do
   for l:=1 to n do
    for k:=1 to n do
  if a[i,j].value=a[k,l].value then inc(a[i,j].i);
maxi:=1;maxj:=1;
writeln;
for i:=1 to n do
 for j:=1 to n do
 if a[i,j].i>a[maxi,maxj].i then begin
                                  maxi:=i;maxj:=j;
                                 end;
writeln(a[maxi,maxj].value);
end.

[Stilet]

Виталий БЕлик

readln;
end.

[11klass]

составьте программу нахождения чаще всего встречающийся элемент данного массива, как сделать?) вот эта программа правильна?

[Stilet]

А ты запусти ее.