Запуск модуля

  unit ap9;
 
interface
const
     n=5;
     m=5;
type matr=array[1..m,1..n] of integer;
procedure vvod(var a:matr; var n,m:integer; ch:char);
Procedure vyvod(a:Matr;n,m:integer);
Procedure slog(a1,a2:Matr;Var a:Matr;n,n1,n2:integer);
function element(a:matr; n,m:integer):real;
 
 
implementation
 
procedure vvod;
var i,j:integer;
begin
    writeln('vvedite kolichestvo strok matrici ',ch,' m=');
     read(m);
    writeln('vvedite kolichestvo slobcov matrici ',ch,' n=');
    read(n);
    writeln('vvedite matricu ',ch,'(',n,',',m,'):');
     for i:=1 to m do
      begin
       for j:=1 to n do
        begin
        write('vvedite', ch, '[',i,',',j,']:');
        readln(a[i,j]);
        end;
 
        end;
       end;
 
Procedure vyvod;
var
   i,j:integer;
begin
     for i:=1 to m do begin
         for j:=1 to n do
             write(a[i,j],'   ');
             writeln;
         end;
end;
 
 
  Procedure slog;
    Var i,j:integer;
  begin
  for i:=1 to m do
      for j:=1 to n1+n2 do
      begin
      if j<=n1 then a[i,j]:=a1[i,j];
      if j>n1 then a[i,j]:=a2[i,j-n1];
      end;
end;
 
 
type
Matrtype=array[1..m,1..n] of real;
 
function element(a:matr; n,m:integer):real;
var
i,j,min:integer;
 
 
begin
min:=0;
for i:=1 to m do
for j:=1 to n do
if a[i,j]<min then min:=a[i,j];
 
end;
 
end.