Подскажите за что отвечают элементы?

[Fatality]

народ подскажите плиз за что в этой задачи отвечают p и b?)) препод спрашивает, а задачу не я делал...(((

условие: составить прогу нахождения чаще всего встречающегося элемента в массиве

type mas2=array[1..15,1..15] of integer;
var n,m,b,i,j,p,q,w,c:integer; A:mas2;
procedure input2 (k,l:integer; var B:mas2);
begin
for i:=1 to k do
for j:=1 to l do
begin
write('[',i,',',j,']=');
readln(B[i,j]);
end;
end;
procedure output2 (k,l:integer; B:mas2);
begin
for i:=1 to k do
begin
writeln;
for j:=1 to l do
write(B[i,j],' ');
writeln;
end;
end;
begin
writeln('Vvedite kol-vo elementov');
readln(n);
input2(n,n,A);
output2(n,n,A);
p:=0;b:=1;
for i:=1 to n do
for j:=1 to n do
begin
for q:=1 to n do
for w:=1 to n do
if a[i,j]=a[q,w] then inc(p);
if b<p then begin
b:=p;
c:=a[i,j];
end;
p:=0;
end;
writeln;
writeln('etot element:',c);
readln;
end.

[alex_fcsm]

p - количество элемента a[i,j] в массиве
b- текущеe максимальное значение p

можно было как-нибудь по информативнее называть переменные

[capta1n]

переменная p считает количество равных проверяемому элементу
b - записывает максимальное значение, которое было посчитано - оно заменит предыдущее максимальное значение, если на очередной стадии цикла программа посчитает больше равных элементов, чем ранее