Исправить ошибку в программе про матрицы

Program p2; 
uses crt; 
const 
n=3; 
m=4; 
type 
matrica=array[1..n,1..m] of real; 
var 
B:matrica; 
otv:char; 
r1,r2,r,i,kol,x,j,k:integer; 
Begin 
while true do 
begin 
textbackground(1); 
textcolor(10); 
clrscr; 
writeln('Сколько раз число с клавиатуры повторяется в матрице?'); 
while true do 
begin 
writeln('Введите размерность матрицы'); 
readln(r1); 
readln(r2); 
if(r1>=1)and(r1<=n)and (r2>=1)and(r2<=m)then break 
end; 
writeln('Введите элементы матрицы'); 
for i:=1 to r1 do 
for j:=1 to r2 do 
begin 
write('B[',i,',',j,']='); 
readln(B[i,j]); 
end; 
writeln(' ':15, 'Вывод массива:'); 
for i:=1 to r1 do 
begin 
for j:=1 to r2 do 
write(b[i,j]:6); 
writeln 
end; 
begin 
for i:=1 to r1 do 
for j:=1 to r2 do 
begin 
if B[i,j]<0 then B[i,j]:=sqr(B[i,j]); 
if B[i,j]>0 then B[i,j]:=exp(3*ln(B[i,j])); 
end; 
writeln('Вывод нового массива, отрицательные в квадрат:'); 
for i:=1 to r1 do 
for j:=1 to r2 do 
writeln [B [i,j]];
write('Продолжить работу?(Y/N)'); 
readln(otv); 
if(otv='N')or(otv='n')then break; 
end 
end 
END.

writeln(B[i,j]);