двумерный массив в паскале

[ymarihawk]

характеристикой столбца целочисленной матрицы назовем сумму модулей его отрицательных нечетных элементов. переставляя столбцы заданной матрицы, расположить их в соответствии с ростом характеристик.

не могу найти ошибку в программе

var n,i,j,m,k,l:integer;  var p,s:array[1..100] of real;
var a,b:array[1..100,1..100] of integer;
begin
  write('n=');readln(n);
  write('m=');readln(m);
  for i := 1 to n do
  for j:=1 to m do
   read (a[i,j]);
  for i := 1 to n do
  for j:=1 to m do
   write (a[i,j],' ');
  writeln();
  for l:=1 to m do
  for k:=1 to n do
  begin
    if (a[k,l]<0) and (a[k,1]mod 2=1) then s[l]:=s[l]+abs(a[k,1]);
  end;
  for l:=1 to m-1 do
  for i:=1 to n do
  begin
  if s[l]>s[l+1] then b[i,l]:=a[i,l+1]; b[i,l+1]:=a[i,l];
  end;
  for i := 1 to n do
  for j:=1 to m do
   write(a[i,j],' ');
  writeln();

[Dvoishnik]

а что компилятор говорит то??

[Stilet]

а что компилятор говорит то?

Наверное что не хватает end с точкой

[ymarihawk]

нет, end. это я недоскопировала.
компилятор ничего не говорит, у меня в матрице столбы не меняются, хотя вроде массив верный. как будто в цикл не входит и сумму не складывает. сама не могу найти ошибку
хд сейчас у меня программа не выводит строку столбец, а сливает сразу

[AleksandrH]

for l:=1 to m-1 do
  for i:=1 to n do
  begin
  if s[l]>s[l+1] then b[i,l]:=a[i,l+1]; b[i,l+1]:=a[i,l];
  end;

как вариант может надо так

for l:=1 to m-1 do
  for i:=1 to n do
  begin
  if s[l]>s[l+1] then 
   begin 
    b[i,l]:=a[i,l+1]; b[i,l+1]:=a[i,l];
  end
  end;