Дана матрица x={x(ij)},i=1,2,...,N,j=1,2,...,M. Вывести на печать элементы матрицы, сумма индексов которых равна заданной константе B.(ПАСКАЛЬ)

спасибо огромное

Program A5;Type mass=array [1..40] of integer;Var i, j,n,s: integer;Procedure horline;bedinread (n,m);for i:=1 to n for j:=1 to m do read(a[i,j]);end;Beginhorline;read(B);for i:=1 to n dofor j:=1 to m do if i+j=B then write (a[i,j], 'B');end.