Получить число отрицательных членов подпоследовательности и число нулевых членов всей последовательности

Program ms1;
uses crt;
const n=45;
var a:array[1..n] of integer;
i,ko,kn:integer;
begin
clrscr;
randomize;
ko:=0;
kn:=0;
for i:=1 to n do
begin
a[i]:=Trunc ((50-(-20))*random+(-20));
write(a[i]:3);
if (a<0) and (i<=35) then ko:=ko+1;
if a=0 then kn:=kn+1;
end;
writeln('Количество отрицательныхв первых 35=',ko);
writeln('Колич. нулевых членов всей последовательности=',kn);
readln;
end.

if (a<0) and (i<=35) then ko:=ko+1;
if a=0 then kn:=kn+1;

if (a[i]<0) and (i<=35) then ko:=ko+1;
if a[i]=0 then kn:=kn+1;

Program ms1;
uses crt;
const n=45;
var a:array[1..n] of integer;
i,ko,kn:integer;
begin
clrscr;
randomize;
ko:=0;
kn:=0;
for i:=1 to n do
begin
a[i]:=Trunc ((50-(-20))*random+(-20));
write(a[i]:3);
if (a[i]<0) and (i<=35) then ko:=ko+1;
if a[i]=0 then kn:=kn+1;
end;
writeln;
writeln('Количество отрицательных в первых 35=',ko);
writeln('Колич. нулевых членов всей последовательности=',kn);
readln;
end.

Program ms2;
uses crt;
const nmax=20;
var a,b,c:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
begin
clrscr;
{randomize;}
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:={random(10)-4}10*i+j;{для наглядности, можно и рандомом}
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
writeln('Матрица В:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j>=i then b[i,j]:=a[i,j]
    else b[i,j]:=a[j,i];
    write(b[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Матрица C:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j>=i then b[i,j]:=a[j,i]
    else b[i,j]:=a[i,j];
    write(b[i,j]:4);
   end;
  writeln;
 end;
readln
end.