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

const nmax=100; var a: array[1..nmax,1..nmax] of integer; i,j,s,k,n: integer; f: text;begin assign(f,\'laba_7.txt\'); rewrite(f); write(\'Введите размер матрицы: \'); readln(n); writeln(\'матрица:\'); randomize; for i:=1 to n do begin k:=0; s:=0; for j:=1 to n do begin a[i,j]:=random(50)-5; write(a[i,j]:4); if a[i,j]<0 then inc(k); s:=s+a[i,j]; end; if k>0 then begin writeln(f,\' Сумма элементов в строке \',i,\' s = \',s); write(\' Сумма элементов в строке \',i,\' s = \',s); end; if k=0 then begin writeln(f,\' В строке нет отрицательных элементов\'); write(\' В строке нет отрицательных элементов\'); end; writeln; end; close(f); readln;end.