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

Unit Modul;
Interface
   type matrix=array[1..6] of integer;
        matrix2=array[1..3] of integer;
implementation
var A:matrix;
    B,C:matrix2;
    max,min:integer;
    i,x,y,n,j,k,z:byte;
function Sred(v:matrix;n:byte):real;
var s:real;
     i:byte;
begin
s:=0;
for i:=1 to 6 do
s:=s+v[i];
Sred:=s/n;
    end; 
procedure z1(var A:matrix); 
  begin
       max:=A[1];
       min:=A[1];
       for i:=1 to 6 do begin
        if A[i]>max then max:=A[i]
         else if A[i]<min then min:=A[i];
     writeln('Min: ',min,' Max: ',max);
    end;end;
 
 
  procedure z4(var A:matrix);  
  begin
  n:=6;
 { Сортировка по возрастанию}
 For j := 1 To n-1 Do
   For i := 1 To n-1 Do
     If A[i] > A[i+1] Then
       Begin
         k:=A[i];
         A[i]:=A[i+1];
         A[i+1]:=k
       End;
        writeln('Массив A[i] выстроенный по возрастанию');
       for i:=1 to 6 do
       begin
        write(A[i],' ');
       end;
       writeln;
 
  end;
  end.

program lab12;
uses CRT,modul;
type m=array[1..6] of integer;
var A:m;
    i:byte;
begin
writeln('введите элементы массива A[i]: ');
 for i:=1 to 6 do
   begin
    write('A[',i,']: ');
    readln(A[i]);
   end;
   z1(A);
  Sred;
   z4(A);
end.

program lab12;
uses
  modul;
var
  A:matrix;
  mx,mn,i:integer;
begin
  writeln('введите элементы массива A[i]: ');
  for i:=1 to 6 do
    begin
        write('A[',i,']: ');
        readln(A[i]);
    end;
  z1(A,6,mx,mn);
  writeln('Max: ',mx,', min: ',mn);
  writeln('Среднее: ',Sred(a,6):8:2);
  z4(A,6);
  writeln('Отсортированнный массив: ');
  for i:=1 to 6 do 
    write(a[i]:4);
  readln;
end.

Unit
  Modul;
 
Interface
 
const
  n_max=100;
type
  matrix=array[1..n_max] of integer;
 
function Sred(v:matrix;n:byte):real;
procedure z1(A:matrix;n:integer;var max,min:integer);
procedure z4(var A:matrix;n:integer);
 
 
implementation
 
function Sred(v:matrix;n:byte):real;
var
  s:real;
  i:byte;
begin
  s:=0;
  for i:=1 to n do
    s:=s+v[i];
  Sred:=s/n;
end;
 
procedure z1(A:matrix;n:integer;var max,min:integer);
var
  i:byte;
begin
  max:=A[1];
  min:=A[1];
  for i:=1 to n do
    begin
      if A[i]>max then max:=A[i];
      if A[i]<min then min:=A[i];
    end;
end;
 
 
procedure z4(var A:matrix;n:integer);
var
  j,i:byte;
  k:integer;
begin
 { Сортировка по возрастанию}
 For j := 1 To n-1 Do
   For i := 1 To n-1 Do
     If A[i] > A[i+1] Then
       Begin
         k:=A[i];
         A[i]:=A[i+1];
         A[i+1]:=k
       End;
end;
 
begin
end.

unit modul;
interface
const nmax=100;
type mas=array[1..nmax] of integer;
procedure vvod(var a:mas;var n:integer;c:char);
function sred(a:mas;n:integer):real;
function min(a:mas;n:integer):integer;
function max(a:mas;n:integer):integer;
procedure sort(var a:mas;n:integer);
implementation
procedure vvod(var a:mas;var n:integer;c:char);
var i:integer;
begin
writeln('Массив ',c);
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
end;
function sred(a:mas;n:integer):real;
var i:integer;
     s:real;
begin
s:=0;
for i:=1 to n do
s:=s+a[i];
sred:=s/n
end;
function min(a:mas;n:integer):integer;
var i:integer;
    m:integer;
begin
m:=a[1];
for i:=2 to n do
if a[i]<m then m:=a[i];
min:=m
end;
function max(a:mas;n:integer):integer;
var i:integer;
    m:integer;
begin
m:=a[1];
for i:=2 to n do
if a[i]>m then m:=a[i];
max:=m
end;
procedure sort(var a:mas;n:integer);
var i,j,x:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x
 end;
writeln('Отсортированный массив');
for i:=1 to n do
write(a[i]:4);
writeln;
end;
end.

uses crt,modul;
var a,b:mas;
    n,m:integer;
begin
randomize;
vvod(a,n,'A');
writeln('Среднее=',sred(a,n):0:2);
writeln('Минимальный=',min(a,n));
writeln('Максимальный=',max(a,n));
sort(a,n);
vvod(b,m,'B');
writeln('Среднее=',sred(b,m):0:2);
writeln('Минимальный=',min(b,m));
writeln('Максимальный=',max(b,m));
sort(b,m);
end.