( Pascal ) Среднее геометрическое в матрице

[P1RoG]

Найти среднее геометрическое с интервала [10,50] элементов каждой строчки матрицы B ( 6, 4 ) Результат записать в массив Х.


После ввода матрицы выскакивает ошибка, помогите исправить

program lab7_1;
var b:array[1..6,1..4] of integer;
x:array [1..100] of real;
p,k,sg:real;i,j:integer;
begin for i:=1 to 6 do
for j:=1 to 4 do readln(b[i,j]);
for i:=1 to 6 do
p:=1;k:=0;
begin for j:=1 to 4 do
write(b[i,j]:3);
writeln end;
begin
for i:=1 to 6 do
begin
for j:=1 to 4 do
if (b[i,j]<=50) and (b[i,j]>10) then
begin
p:=p*x[j];k:=k+1
end;
sg:=exp(1/k*ln(p));
x[i]:=sg;
end;
writeln ('Massiv x');
for i:=1 to 6 do
writeln (x[i]:7:2);
end
end.

[P1RoG]

Возможно проблема с бегинами-ендами, с ними у меня плохо

[P1RoG]

Не кто не хочет помочь найти в чем проблема? Т_Т