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