Задачка на паскале

[mistertvister]

матрица MxM . КАК обеденить все эти коды в одну единую программу?
1.поиск минимального элемента в каждом столбце и выводе их на печать
2.подсчет суммы всех четных элементов матрицы, расположеных на главной диагонали
3.замена четных чисел на !
4.расположить все элементы в каждой строке в порядка возрастания



Код:1

for i:=1 to n do begin
min:=a[1,i];
for j:=2 to n do 
if a[j,i]>min then min:=a[j,i];
writeln(min);
end;

Код:2

min:=0;
for i:=1 to n do
if a[i,i] mod 2 =0 then min:=min+a[i,i];
writeln('sum=',min);

код3

for i:=1 to n do
begin
for j:=1 to n do 
if a[i,j] mod  2 = 0 then write('    !    ')
 else write(a[i,j]:6:3) ;
writeln;
end;

Код:4

procedure Sort_Str(var ms:mas;n:integer);{сортировка в строке}
var i,x,L,R,m,j:integer;
begin
for i:=2 to n do
  begin
    x:=ms[i];
    L:=1; R:=i;
    while L<R do
      begin
        m:=(L+R) div 2;
        if ms[m]<=x then L:=m+1
        else R := m;
      end;
    for j:=i downto R+1 do ms[j]:=ms[j-1];
    ms[R]:=x;
  end;
end;

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;



  const
      n=3;
      m=3;
  var
     a:array[1..n,1..m] of integer;
     i,j,min,sum,p:integer;


begin

 randomize;
  for i := 1 to n do begin
     for j:= 1 to m do
     begin
        a[i,j]:=random(25)+1;
        write(a[i,j], ' ');
     end;
     writeln;
      end;


     WriteLn('=*==*==*= Minamal numbers: ') ;
for i:=1 to n do begin
  min:=a[1,i];
    for j:=2 to m do
      if a[j,i]<min then min:=a[j,i];
        writeln(min);
      end;


    sum:=0;
for i:=1 to n do
if a[i,i] mod 2 =0 then sum:=sum+a[i,i];
writeln('=*==*==*= SUM= ',sum);



for i:=1 to n do
begin
for j:=1 to m do
 begin
    if a[i,j] mod 2 = 0 then write(' ! ')
    else write(a[i,j],' ') ;
 end;
writeln;
end;
   writeln;


{                                      // сортировка елементов массива в строках
  for i := 1 to n do   begin
    for j:=1 to m do
      begin
           if a[i,j]>a[i,j+1] then
               begin
                 p:=a[i,j];
                 a[i,j]:=a[i,j+1];
                 a[i,j+1]:=p;
               end;
           write(a[i,j], ' ');
      end;
       writeln;

  end;
}

  readln;
end.

Программа готова, но я бы вам посоветывал удалить вашу процедуру (procedure Sort_Str), и нормально отредактировать код, находящийся в коменте(если его довести до ума, то будет человеческая сортировка)...
ЗЫ:пошел спать!

[mistertvister]

спасобооооо