Двумерный массив 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.