схема для подпрограммы

program lb1;
const nmax=15;
type mass=array[1..nmax,1..nmax] of integer;
var x,y,z:mass;
    g,m,n,i,j,k,nx,mx,ny,my,nz,mz,summa:integer;
    sr:real;
    
procedure Vvod(var a:mass;na,ma:integer;e:char);
begin
 for i:=1 to na do
 begin
  for j:=1 to ma do
   begin
write (e,'[',i,',',j,']=');
readln (a[i,j]);
   end;
  writeln;
 end;
end;
 
Procedure Schet (a:mass;na,ma:integer;e:char;var sr:real);
var summa:integer;
begin
k:=0;summa:=0;
for i:=1 to na do
for j:=1 to ma do
if a[i,j]>0 then
 begin
  k:=k+1;
 summa:=summa+a[i,j];
 end;
 sr:= summa/k;
end;
 
begin
write('Êîëè÷åñòâî ñòðîê äî ',nmax,' nx=');
readln(nx);
write('Êîëè÷åñòâî ñòîëáöîâ äî ',nmax,' mx=');
readln(mx);
writeln('Èñõîäíàÿ ìàòðèöà x:');
Vvod(x,nx,mx,'x');
Schet(x,nx,mx,'x',sr);
  write('Ñðåäíåå àðèôìåòè÷åñêîå ìàññèâà x=',sr:0:2);
 
  writeln();
write('Êîëè÷åñòâî ñòðîê äî ',nmax,' ny=');
readln(ny);
write('Êîëè÷åñòâî ñòîëáöîâ äî ',nmax,' my=');
readln(my);
writeln('Èñõîäíàÿ ìàòðèöà y:');
Vvod(y,ny,my,'y');
Schet(y,ny,my,'y',sr);
write('Ñðåäíåå àðèôìåòè÷åñêîå ìàññèâà y=',sr:0:2);
 
writeln();
write('Êîëè÷åñòâî ñòðîê äî ',nmax,' nz=');
readln(nz);
write('Êîëè÷åñòâî ñòîëáöîâ äî ',nmax,' mz=');
readln(mz);
writeln('Èñõîäíàÿ ìàòðèöà z:');
Vvod(z,nz,mz,'z');
Schet(z,nz,mz,'z',sr);
write('Ñðåäíåå àðèôìåòè÷åñêîå ìàññèâà z=',sr:0:2);
 
end.