Двумерный массив 3 на 5 заполнен целыми числами посчитать сумму элементов 1 строки и сумму элементов последнего столбца

Program BiFi; Const m=3; n=5; Var a:array[1..m,1..n] of integer; i,j,k,l:integer; Begin k:=0; l:=0; for i:=1 to m do begin for j:=1 to n do read(a[i,j]);                        write(' ');                        writeln;                        end; for j:=1 to n do k:=a[1,j]+k; for i:= 1 to m do l:=a[i,5]+l; writeln(k); writeln(l); readln; end.