Чтобы не было такого, что 1 человек несколько раз регистрировался и также, чтобы человек мог восстановить свою страницу в любое время,даже если его взломали.
Исправь последнюю часть и в описании переменных добавь 2 дополнительных переменных а1 и а2.
...
sum, kolvoel, i, j, n, a1, a2 : integer;
...
srar:=sum/kolvoel;
writeln('srasr=',srar);
for i:=n downto 1 do
for j:=n downto 1 do
if b[i,j]>srar then begin a1:=i; a2:=j; end;
writeln('i=',a1,' j=',a2);
<span>end.</span>