PASCAL矩阵

program p4; const n=4;m=5; var a:array[1..n,1..m] of word; b,f:array[1..n] of word; c,g:array[1..m] of word; d,e,i,j:integer; begin assign(input,'p4.in');reset(input); assign(output,'p4.out');rewrite(output); for