Составить подпрограмму определения номеров строк матрицы с минимальной и максимальной характеристиками

program pr11;
type mas=array [1..3,1..3] of integer;
     vec=array[1..3] of integer;
var
  i,j,l,d,f:integer;
  m,k,s,srar,max1,max2:real;
  x:mas;
  y:vec;
procedure str(y:vec; var s,srar:real);
     var l:integer;k:real;
begin
   for j:=1 to 3 do
   if y[j]<>0 then
     begin
      l:=l+y[j];
      k:=k+1;
     end;
   srar:=l/k;
   end

program pr11;
type mas=array [1..3,1..3] of integer;
     mas2=array [1..3]
 
var 
i,j,l: integer;
srar,k:real;
x:mas;
y:mas2;
 
procedure strk(y:mas2; var srar:real);
var k:=0; {количество эдементов в строке}
    l:=0; {l-считает сумму элементов каждой строки}
for j:=1 to 3 do
begin
l:=l+y[j];
k:=k+1;
end;
srar:=l/k; {считает сред.ариф}
for i:=1 to 3 do
begin
k:=0;
for j:=1 to 3 do
if x[i,j]>0 then k:=k+1
end;
end;
begin
writeln('Vvedite massiv: ');
for i:=1 to 3 do
for j:=1 to 3 do
readln(x[i,j]);
max1:=-1000;
max2:=-1000;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin y[j]:=x[i,j];
writeln(j ,y[j]);
 end;
strk(y,s,srar);