Сумма и кол-во положит.элементов в процедуре

const
 n = 10;
type
 TArr = array[1..n] of integer;
var
 arrA, arrB: TArr;
 
procedure Massiv(var arr: TArr );
var
 i, k, s: integer;
begin
   k:=0;s:=0;
   for i:=1 to n do
   begin
   randomize;
   for i := 1 to n do
   arr[i] := random (100);
   if arr[i] > 0 then
   begin
   s:=s+arr[i];
   k:=k+1;
 
   writeln('k=',k,'_______','s=',s);
   end;
        end;
   end;
begin
 
 writeln(1 массив---------: ');
  Massiv(arrA);
writeln('2 массив---------: ');
  Massiv(arrB);
 
end.

const
  n=10;
  
type
 TArr = array[1..n] of integer;
 
// процедура создания и вывода массива
procedure init(var a: TArr);
var i: integer;
begin
  for i:=1 to n do
  begin
    a[i]:=random(199)-99; // генерация случайных элементов от -99 до 99
    write(a[i]:4);
  end;
  writeln;
end;
 
// процедура подсчета суммы и количества
procedure count(a: TArr);
var i,k,s: integer;
begin
  k:=0; s:=0;
  for i:=1 to n do
    if a[i]>0 then 
    begin
      inc(k);
      s:=s+a[i];
    end;
  writeln('S=',s,'; k=',k);
end;
 
var
 arrA, arrB: TArr;
begin
  randomize;
  writeln('Массив arrA:');
  init(arrA);
  count(arrA);
  writeln('Массив arrB:');
  init(arrB);
  count(arrB);
  readln;
end.

for i:=1 to n do
  begin
    write('a[',i,']=');
    readln(a[i]);
  end;