Матрицы и подпрограммы, Поблема с 3-мя задачами на матрицы с исп Опции

[1nSAnder]

Помогите, пожалуйста, решить 3 задачи на подпрограммы. Это лаб. работы 1-го курса ФАТ,ВолгГТУ.

№1. В каждой строке матрицы С(n,m) (n<=10, m<=15) упорядочить элементы, стоящие после минимума.

№2. В матрицах P(n,n) и Q(m,m) (n<=15, m<=12)найти сумму положительных элементов в вернем и нижнем треугольнике соответственно. Вычисление сумм в ОДНОЙ подпрограмме.

№3. В матрицах A(n,m) и B(m,n) заменить элементы строк, в которых находятся максимальные элементы на значения сумм отрицательных элементов соответствующих матриц.
...буду премного благодарен!!!

[klem4]

1)
Вроде похоже на правду

uses crt;
const n=4;
      m=5;
var x:array[1..n,1..m] of integer;
    i,j,k,min:integer;
    nfind:integer;

procedure bubble;
var flagsort:boolean;
    t:integer;
begin
   if k<>m then
   repeat
      flagsort:=true;
      for k:=nfind+1 to m-1 do
       if not (x[i,k]<=x[i,k+1]) then
        begin
           t:=x[i,k];
           x[i,k]:=x[i,k+1];
           x[i,k+1]:=t;
           flagsort:=false;
        end;
    until flagsort;
end;

Begin
   clrscr;
   randomize;
   for i:=1 to n do
    begin
       for j:=1 to m do
        begin
           x[i,j]:=random(6);
           write(x[i,j]);
           write(' ');
        end;
       writeln;
    end;

   for i:=1 to n do
    begin
       min:=x[i,1];
       nfind:=1;
       for j:=2 to m do
        if x[i,j]<min then
         begin
            nfind:=j;
            min:=x[i,nfind];
         end;
   bubble;
  end;
  writeln;
   for i:=1 to n do
    begin
       for j:=1 to m do
        begin
           write(x[i,j]);
           write(' ');
        end;
       writeln;
    end;
  readln;
end.