массив имеет другое кол-во размерностей

program p1;
var a,b:array [1..20,1..30] of real;
i,j,n,m:integer;s:real;
begin s:=0;
writeln('ââîä n,m'); read(m,n);
writeln('ââîä ìàññèâà');
for i:=1 to m do
for j:=1 to n do begin
read (a[i,j]);
s:=s+a[i,5];end;
write('s=',s:6:2);
for i:=1 to m do
for j:=1 to n do begin
b[i,j]:=b[5]+a[i,j];
write ('b[i,j]=',b[i,j]:6:2)end;
end

b[i,j]:=b[5]+a[i,j]; вот в этой строчке выходит. Массив имеет другое кол-во размерностей
напишите правильную строчку или подскажите как исправить