Дан двумерный массив размерностью 5*5. Вычислить сумму элементов, номер столбца которых нечетный — Pascal(Паскаль)

uses crt;
const
n=5;
m=5;
var a:array[1..1000,1..1000] of integer;
    i,j,s,k,x:integer;
begin
clrscr;

for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(41)-19;

writeln('Ishodna9 matriza:');
for i:=1 to n do
 begin
  write(' ':5);
  for j:=1 to m do
  write(a[i,j]:5);
  writeln;
 end;

for j:=1 to m do
 begin
 S:=0;
 if j mod 2<>0 then
 begin
  for i:=1 to n do
  S:=s+a[i,j];

  a[n+1,j]:=s
  end;
 end;
writeln;

write('Summa');
for j:=1 to m do
write(a[n+1,j]:5);
end.