Разработка многомодульных программ с выделением процедур.

[manifest07]

Здравствуйте уважаемые форумчане. При решении задачи возникли некоторые трудности. Вот условие задачи:

В прямоугольной матрице в каждом столбце поставить на первое место максимальный элемент столбца и, если среди полученных элементов первой строки не окажется элементов, по модулю меньших заданной величины, разделить элементы последней строки на соответствующие элементы первой строки.

естественно имеется наработка:

program zad433_1;
const n=2; m=3;
Type matr = array[1..n,1..m] of real;
var A:matr;    
i,j:integer;
procedure plus;
begin
i:=i+1;
end;
procedure poisk(Var A:matr);
Var i,j:integer;
    max,tmp:real;
Begin
    For j:= 1 to m do
  begin
  max:=a[1,j];
   For i:= 1 to n do
    begin
      if a[i,j]>max
         then
        begin
         tmp:=a[1,j];
             a[1,j]:=a[i,j];
                 a[i,j]:=tmp;
                    plus;
                     end;
    end;
    end;
End;
procedure delenie(Var A:matr);
Var j:integer;
begin
For j:= 1 to m do
      a[n,j]:=a[n,j]/a[1,j];
end;
procedure zamena(Var A:matr);
Var j:integer;
    k:real;
Begin
write('vvedite velechinu - ');ReadLn(k);
      For j:= 1 to m do
        begin
         if abs(a[1,j])>=abs(k) then delenie(A)
        end;
End;        
BEGIN
For i:= 1 to n do
      For j:= 1 to m do
        begin
          Write('A[',i,',',j,']= ');
          ReadLn(A[i,j])
        end;
    WriteLn('Matrix A:');
     For i:= 1 to n do
       begin
         For j:= 1 to m do
           Write(A[i,j]:5:1);
           WriteLn
       end;
poisk(A);
zamena(A);
 WriteLn('Matrix A:');
     For i:= 1 to n do
       begin
         For j:= 1 to m do
           Write(A[i,j]:5:1);
           WriteLn
       end;
ReadLn;
END.

Вроде делал проверку и все сходилось, но преподаватель сказал что по условию деление должно происходить 1 раз, а у меня не так. Хотя вроде проверял, получал верные ответы.
Буду очень благодарен за помощь! Спасибо.

[zhan313]

procedure zamena(Var A:matr);
Var j:integer;
    k:real;
Begin
write('vvedite velechinu - ');ReadLn(k);
      For j:= 1 to m do
        begin
         if abs(a[1,j])>=abs(k) then begin delenie(A); break; end;
        end;
End;

Нужно оборвать цикл. Таких элементов может быть несколько.

[manifest07]

Большое спасибо! Именно это мне и нужно было.)