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