Подпрограмма: определить в каком массиве больше среднее арифметическое отрицательных чисел

uses crt;
type mas=array [1..12] of integer;
var a,b,c: mas;
    i: byte;
 
procedure Vvod1m (c: char; r: byte;var z: mas);
begin
writeln('Çàïîëíèòå ìàññèâ ',c);
for i:=1 to r do
    begin
    write(c,'[',i,']=');
    readln(z[i]);
    end;
end;
 
 
procedure Vyvod1m (c: char; r: byte;var z: mas);
begin
writeln('Äàí ìàññèâ ',c);
for i:=1 to r do
    write(z[i]:4);
writeln;
end;
 
function Srar (r: byte; z:mas):real;
var sum,k: integer;
begin
for i:=1 to r do
    if z[i]<0 then
       begin
       inc(sum,z[i]);
       inc(k);
       end;
if k>0 then Srar:=sum/k
   else Srar:=-33000;
end;
 
begin
Vvod1m ('A',7,a);
Vvod1m ('B',4,b);
Vvod1m ('C',12,c);
Vyvod1m ('A',7,a);
Vyvod1m ('B',4,b);
Vyvod1m ('C',12,c);
if (Srar(7,a)>Srar(4,b)) and (Srar(7,a)>Srar(12,c))
   then writeln('Â ìàññèâå À íàèáîëüøåå ñð.àð. îòðèöàòåëüíûõ')
        else if Srar(4,b)>Srar(12,c)
             then writeln('Â ìàññèâå B íàèáîëüøåå ñð.àð. îòðèöàòåëüíûõ')
                  else writeln('Â ìàññèâå C íàèáîëüøåå ñð.àð. îòðèöàòåëüíûõ');
end.