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

uses
  crt;
const
  str=4;{количество строк}
  col=4;{количество столбцов}
type
  MyArr=array[1..str,1..col]of integer;
{функция подсчета суммы}
function FSumm(a:MyArr):integer;
var
  i,j,s,summ:integer;
  fl:boolean;
begin
  summ:=0;
  for j:=1 to col do
  begin
    s:=0;
    fl:=false;
    for i:=1 to str do
    begin
      if a[i,j]<0 then
        fl:=true;
      inc(s,a[i,j])
    end;
    if fl then
      inc(summ,s)
  end;
  FSumm:=summ
end;
var
  a:MyArr;
  b:array[1..col]of integer;
  i,j,k,temp,s:integer;
{основная программа}
begin
  clrscr;
  {заполняем и выыводим матрицу}
  writeln('Исходная матрица:');
  for i:=1 to str do
  begin
    for j:=1 to col do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {находим характеристику каждого столбца}
  for j:=1 to col do
  begin
    s:=0;
    for i:=1 to str do
      if (a[i,j]<0) and odd(a[i,j]) then
        inc(s,abs(a[i,j]));
    b[j]:=s
  end;
  {сортируем cтолбцы по характеристике}
  for j:=1 to col-1 do
    for i:=j+1 to col do
      if b[i]<b[j] then
      begin
        for k:=1 to str do
        begin
          temp:=a[k,i];
          a[k,i]:=a[k,j];
          a[k,j]:=temp
        end;
        temp:=b[i];
        b[i]:=b[j];
        b[j]:=temp
      end;
  {выводим матрицу}
  writeln('Полученная матрица:');
  for i:=1 to str do
  begin
    for j:=1 to col do
      write(a[i,j]:2,' ');
    writeln
  end;
  writeln('Характеристики: ');
  for i:=1 to col do
    write(b[i]:2,' ');
  writeln;
  writeln('Сумма: ',FSumm(a))
end.