создание модулей. с нуля, 1 курс(

[Шорох Анастасия]

Написать и отладить программы с использованием модуля, содержащего
процедуры расчета элементов линейных массивов " В", являющихся наименьшими элементами в строках матрицы "A" (NxM).
Программа и модуль к ней. Нужно отредактировать, чтобы в программе не было даже ввода данных, все состояло из модулей

Текст модуля
Код Pascal

unit mass;
interface
const n=15;
      m=6;
type matr=array[1..n,1..m] of byte;
     mas=array[1..n] of byte;
procedure Massiv(a:matr;var b:mas);
implementation
procedure Massiv(a:matr;var b:mas);
var i,j,mx:byte;
begin
for i:=1 to n do
 begin
  mx:=a[i,1];
  for j:=1 to m do
  if a[i,j]>mx then mx:=a[i,j];
  b[i]:=mx;
 end;
writeln('Массив максимальных значений строк:');
for i:=1 to n do
write(b[i],' ');
end;
end.


Текст программы
Код Pascal
uses crt,mass;
var a:matr;
    b:mas;
    i,j:byte;
begin
clrscr;
randomize;
writeln('Массив А:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
Massiv(a,b);
readln
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.