Организация модулей

Unit Glob;
 Interface
 const Len=30;
 type T_Vect=array[1..Len] of real;
      T_Matr=array[1..Len, 1..Len] of real;
 implementation
End.

Unit KR_Srv2;
Interface
Uses  Glob;
 
Procedure Ztvor_M(n:byte;Var ma:T_Matr);
Implementation
Uses crt;
 
 Procedure Ztvor_M(n:byte;Var ma:T_Matr);
 Var i,j:byte;
 Begin
 repeat
 writeln('Vvedite razmernost matruzy A n=');
 readln(n);
 until n in [1..Len];
 writeln;
 
 for i:=1 to n do
 for j:=1 to n do
 ma[i,j]:=(2*abs(3.3-i)-1.5)*(6.5-j)*exp(j*ln(2))*(i-3.4)*(j/3-1);
 For i:=1 to n do    begin
  For j:=1 to n do
    write (ma[i,j]:10:3);
    writeln;
     end;
 End;
 
END.

Program Matr_KR2;
uses Crt,Glob,KR_SRV2;
var i,j,k,n,l:integer;
    a:T_Matr;
    x:T_Vect;
    mxi,mxj,s:real;
    b,c:real;
    mn:real;
    U:real;
 
 
            begin
                 ClrScr;
                 Ztvor_M(n,a);
 
s:=0;
 for j:=2 to n do
 for i:=1 to n do
 if (j mod 2=0)and odd(i) then s:=s+a[i,j];
 
 
for i:=1 to n do
 begin
  mxi:=a[i,1];
  for j:=1 to n do
  if a[i,j]>mxi then mxi:=a[i,j];
  mxj:=a[1,i];
  for j:=1 to n do
  if a[j,i]>mxj then mxj:=a[j,i];
  if(mxi>0)and(mxj>0)then x[i]:=(mxi+mxj)/2
  else x[i]:=s;
 end;
writeln('Vector:');
for i:=1 to n do
write(x[i]:10:3,' ');
writeln;
writeln;
 
 
writeln('Vvedite 2 chusla:');
readln(b,c);
 
if c>b then
 begin
  mn:=x[1]*x[2];
  for i:=2 to n do
  if x[i]*x[i-1]<mn then mn:=x[i]*x[i-1];
 end
else mn:=x[n];
U:=mn;
 
write('U=',U:0:3);
readln
 
 END.