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

count := 0;
sum := 0;
for i := 1 to n do
begin
     if a[i] > 0 then sum := sum + a[i];
     if a[i] < 0 then Inc(count);
end;
Writeln ('Summa = ', sum);
Writeln ('Koli4estvo = ', count);

var
    a: array[1..n, 1..n] of real;
    b: array[1..n] of real;
begin
for i := 1 to n do
    b[i] := a[i,i];
end.

count := 0;
sum := 0;
for i := 1 to n do
begin
if a[i] > 0 then sum := sum + a[i];
if a[i] < 0 then Inc(count);
end;
Writeln ('Summa = ', sum);
Writeln ('Koli4estvo = ', count);

const
    n=10;
    var a:array[1..n]of integer;
    i,s,k:Byte;
    begin
      Randomize;
      for i:=1 to n do begin
        a[i]:=Random(12)-6;
        writeln(a[i]:2);
      end;
      Writeln;            
      begin
       s:=0;   k:=0;
       for i:=1 to n do
      if a[i]>0 then s:=s+a[i];
        writeln('сумма положительных=',s);
          for i:=1 to n do
       if a[i]<0 then k:=k+1;
        writeln('количество отрицательных=',k);
      end;      
      Readln;
    end.

const
    n=4;
    var a:array[1..n,1..n]of integer; b:array[1..n]of Integer;
    i,j:Byte;
    begin
      Randomize;
 for i:=1 to n do begin
   for j:=1 to n do begin
     a[i][j]:=Random(36)+1;
   write(a[i,j]:4);
   end;
   Writeln;
   end;
   for i:=1 to n do  begin
     b[i]:=0;
    b[i]:=a[i,i];
    end;
    for i:=1 to n do
   Writeln(b[i]);
   Readln;
end.