Определить в каком из одномерных массивов больше отрицательных элементов

program w1768;
uses crt;
type ta=array[1..20] of integer;
var i,m,n,srr:word;
      a,b:ta;
function sr(x,y:ta;m1,n1:word):word;
var suma,sumb:word;
begin
    suma:=0;
    sumb:=0;
    for i:=1 to m1 do
    begin
        if x[i]<0 then inc(suma);
    end;
    for i:=1 to n1 do
    begin
        if y[i]<0 then inc(sumb);
    end;
    if suma>sumb then sr:=1
    else
        if suma<sumb then   sr:=2
        else sr:=0;
end;
begin
    clrscr;
    randomize;
    write('kol-vo 1 mass=>'); readln(m);
    for i:=1 to m do
    begin
        a[i]:=random(20);
    a[i]:=a[i]-10;
        write(a[i]:3);
    end;
  writeln;
    write('kol-vo 2 mass=>'); readln(n);
    for i:=1 to n do
    begin
        b[i]:=random(20);
    b[i]:=b[i]-10;
        write(b[i]:3);
    end;
    writeln;
  srr:=sr(a,b,m,n);
    if srr=0 then   write('Ravno ')
    else
        if srr=1 then write('Perv ')
        else write('Vtor');
    readln;
end.

type
 TArr = array[1..100] of integer;
var
 arrA, arrB: TArr;
 i, j, n, cnt1, cnt2: integer;
 
procedure CountNeg(arr: TArr; var count: integer);
var
 i: integer;
begin
 count:=0;
  for i:=1 to n do
   if arr[i] < 0 then inc(count);
 writeln(count);
end;
 
begin
 writeln('Введите кол-во элементов массива: ');
 readln(n);
 writeln('Массив А: ');
  for i:=1 to n do
   begin
    arrA[i]:=random(20)-5;
    write(arrA[i], ' ');
   end;
 writeln;
 writeln('Массив В: ');
  for j:=1 to n do
   begin
    arrB[j]:=random(20)-5;
    write(arrB[j], ' ');
   end;
 writeln;
 write('Кол-во отрицательных элементов массива А: ');
 CountNeg(arrA, cnt1);
 write('Кол-во отрицательных элементов массива B: ');
 CountNeg(arrB, cnt2);
  if cnt1 > cnt2 then writeln('В массиве А отрицательных элементов больше!')
   else if cnt1 < cnt2 then writeln('В массиве В отрицательных элементов больше!')
    else writeln('Кол-во отрицательных элементов в массивах равны!');
end.

type
 TArr = array[1..10, 1..10] of integer;
var
 arr: TArr;
 n, m: integer;
 
procedure Zapolnenie_Vivod(var arr: TArr; n, m: integer);
var
 i, j: integer;
begin
 randomize;
 writeln('Матрица: ');
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr[i, j]:=random(2);
      write(arr[i, j]:4);
     end;
    writeln;
   end;
end;
 
function CountZero(arr: TArr): integer;
var
 i, j, k, count: integer;
begin
 write('Кол-во нулевых столбцов: ');
  for j:=1 to m do
   begin
    k:=0;
     for i:=1 to n do
      begin
       if arr[i, j] = 0 then inc(k)
        else break;
       if k = m then inc(count);
      end;
   end;
 CountZero:=count;
end;
 
begin
 read(n, m);
 Zapolnenie_Vivod(arr, n, m);
 writeln(CountZero(arr));
end.