Подпрограммы

type matr = array [1..5,1..5] of integer;
const A:matr = ((5,9,2,1,4),
                (5,6,7,8,9),
                (9,5,3,4,2),
                (1,7,3,9,8),
                (9,2,7,3,4));
var i,j :integer;
    B:matr;
procedure write_matr(x:matr);
 begin
   for i:=1 to 5 do
     begin
       for j:=1 to 5 do
       write(x[i,j]:3);
       writeln;
     end;
 end;
function matr_min(a:matr) :integer;
var i,j,mn :integer;
  begin
    mn:= a[1,1];
    for i:=1 to 5 do
     if a[i,i] < mn then
      mn:=a[i,i];
      matr_min:= mn;
  end;
function matr_udv(var a:matr) :integer;
var i,j :integer;
  begin
    j:= 2;
    while J <= 5 do
      begin
        for i:= 1 to 5 do
        a[i,j]:= a[i,j] * 2;
        j:= j+2;
      end;
   end;
BEGIN
 randomize;
 for i:=1 to 5 do
 for j:=1 to 5 do
 b[i,j]:= random(15)-5;
 writeln ('Ishodnaya matrica');
 write_matr(a);
 writeln ('Random matrica');
 write_matr(b);
 write ('Min element glavnoi diagonali ishodnoy matricy = ',matr_min(a));
 write ('Udvoennoe znachenie chetnyh stolbcov izmenennoy matricy = ');
  matr_udv(b);
 write_matr(b);
 readln;
END.