Найти сумму элементов

const 
 n=10;
 m=10;
var
 A:array[1..n,1..m] of integer; 
 i,j:integer; 
 Sum:longint;
begin 
  j:=1;
 for i:=1 to n do
  Sum:=sum+A[i,j];
 j:=m;
 for i:=1 to n do
  Sum:=sum+A[i,j];
 i:=1;
 for j:=1 to m do
  Sum:=sum+A[i,j];
 i:=n;
 for j:=1 to m do
  Sum:=sum+A[i,j];
write(Sum);
end.

readln;

end.

for i:=1 to n do
 for j:=1 to m do
   begin 
       write('Введите элемент массива : '); readln(A[i,j]);
   end;

    uses crt;
    const nmax=30;
    type mas=array[1..nmax,1..nmax] of integer;
    var A:mas;
        i,j,n,m,s:integer;
begin
  randomize;
  repeat
    write('n= ');
    readln(n);
    write('m= ');
    readln(m);
  until (odd(n) and odd(m));
  
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
        A[i][j]:=random(20)-10;
        write(A[i][j]:3,' ');
        // s1
        if (i < (n div 2)+1) and (j < (m div 2)+1) then s:=s+A[i][j];
        // s2
        if (i < (n div 2)+1) and (j > (m div 2)+1) then s:=s+A[i][j];
        // s3
        if (i > (n div 2)+1) and (j < (m div 2)+1) then s:=s+A[i][j];
        // s4
        if (i > (n div 2)+1) and (j > (m div 2)+1) then s:=s+A[i][j];
    end;
    writeln;
  end;
  
  writeln;
  writeln('s= ',s);
  Readln;
end.