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

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k,s:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов  до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20)-2;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
s:=0;
for j:=1 to m do
 begin
  k:=0;
  i:=1;
  while(i<=n)and(k=0)do
  if a[i,j]<0 then k:=1
  else i:=i+1;
  if k=1 then s:=s+1;
 end;
writeln('Количество столбцов с отрицательными элементами=',s);
readln
end.

uses crt;
const nmax=15;
      mmax=14;
var a:array[1..nmax,1..mmax] of real;
    x:array[1..nmax] of real;
    m,n,i,j,i1:byte;
    s,b:real;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов  до ',mmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
writeln;
write('Введите число b=');
readln(b);
for i:=1 to n do
 begin
  s:=0;
  for j:=1 to m do
  s:=s+a[i,j];
  x[i]:=b-s/m;
 end;
writeln('Массив разностей числа ',b:0:2,' и средних значений строк:');
for i:=1 to n do
write(x[i]:5:2);
writeln;
writeln;
i1:=1;
for i:=1 to n do
if x[i]<x[i1] then i1:=i;
writeln('Первый минимальный a[',i1,']=',x[i1]:0:2);
write('Количество элементов до него=',i1-1);
readln
end.