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

Program BiFi;Const m=3; n=5;Var a:array[1..m,1..n] of integer;i,j,k,l:integer;Begink:=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.