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

[VNS]

Привет всем!!!!!
Помогите пожалуйста со следующей задачей,долгое время уже думаю и все не могу понять как делается

Вот текст задачи:
Составить подпрограмму определения номеров строк матрицы с минимальной и максимальной характеристиками. Для вычисления характеристики использовать подпрограмму-функцию. В качестве характеристики расмотреть следующие величины:
а) среднее арифмитическое элементов каждой строки матрицы;
б) число положительных элементов в строке.
Поменять местами строки с максимальной и минимальной характеристиками типа
а) в заданной в матрице А
б) в заданной матрице В


Вот мои наработки, максимальные характеристики он находит, а вот минимальные все никак не получается, и еще я не знаю как поменять местами строки с максимальной и минимальной характеристиками
ПОЖАЛУЙСТА ПОМОГИТЕ!!!!!

program pr11;
type mas=array [1..3,1..3] of integer;
{mas4=array [1..3,1..3] of integer;}
mas2=array [1..3] of integer;
{ mas3=array [1..3] of integer; }

var
i,j,l,p,o: integer;
srar,k,max1,max2,min1,min2,c,s,srar 1:real;
x,q:mas;
z,y:mas2;
{z:mas3;
q:mas4;}

procedure strk(y:mas2; var c,srar:real);
var
l:integer;k:real;
begin
k:=0; {количество эдементов в строке}
l:=0; {l-считает сумму элементов каждой строки}
for i:=1 to 3 do
for j:=1 to 3 do
begin
l:=l+y[j];
k:=k+1;
end;
srar:=l/k; {считает сред.ариф}

c:=0;
for j:=1 to 3 do
if y[j]>0 then c:=c+y[j];
end;

{procedure strk1(z:mas3; var s,srar1:real);
var
l:integer;k:real;
begin
k:=0; {количество эдементов в строке}
l:=0; {l-считает сумму элементов каждой строки}
{for p:=1 to 3 do
for o:=1 to 3 do
begin
l:=l+z[o];
k:=k+1;
end;
srar1:=l/k; {считает сред.ариф}

{s:=0;
for o:=1 to 3 do
if z[o]>0 then s:=s+z[o];
end;
}

begin
writeln('Vvedite massiv: ');
for i:=1 to 3 do
for j:=1 to 3 do
readln(x[i,j]);
x[i,j]:=q[p,o];
max1:=-1000;
max2:=-1000;
min1:=1000;
min2:=1000;

begin
for j:=1 to 3 do
begin y[j]:=x[i,j];

end;
strk(y,c,srar);
if (c>max1) and (srar>max2) then
begin
max1:=c;
max2:=srar;
end;
begin
for o:=1 to 3 do
begin z[o]:=q[p,o];
end;

strk1(z,s,srar1);
if (s<min1) and (srar1<min2) then
begin
min1:=s;
min2:=srar1;
end;
end;
end;

writeln (c,srar,s,srar1);
readln;
end.

{strk(y,s,srar);
writeln('sredneie ari<|>meti4eskoe = ',srar);
writeln('4islo polo}|{itelnix elementov = ',k);
if srar[1]>srar[2]
if srar[1]>srar[3] then
begin
srar[1]:=max
m:=1;
p:=m;
p:=1
if k[1]>k[2]
if k}

Заранее спасибо