модуль

[zhoric]

помогите разобраться с модулем

unit module;
interface
uses crt; 
Procedure OO(matr:integer);
Implementation
Procedure OO(matr:integer);
const n=20;
var
  i,j,rasm:integer; {i-строки массива,j-столбцы массива,rasm-размерность массива}
  a:array[1..20,1..20] of integer;          
   
begin
     if n>20
       then 
          writeln(' n превышает размерность матрицы')
       else
          begin
           writeln('НАЧАЛО ПРОГРАММЫ');
             write('введите размерность матрицы=');
              readln(rasm);          {чтение размерности массива}
              for i:=1 to rasm do     {заполнение массива произвольными числами}
              for j:=1 to rasm do
            a[i,j]:=random(100);    {от 0 до 100}
              writeln('Произведение главной диагонали=',MATR(a,rasm));
                 writeln;
               for i:=1 to rasm do   {вывод массива в форме квадратной матрицы}
               end;
         begin
                for j:=1 to rasm do
                write(a[i,j]:3);
                 writeln;
         end;
           writeln('КОНЕЦ  ПРОГРАММЫ');
            end;
            end.

[Stilet]

А что с ним не так?

[zhoric]

 writeln('Произведение главной диагонали=',MATR(a,rasm));

ошибка: ожидалось имя процедуры или функции.

[ViktorR]

1. MATR(a,rasm) - в том контексте, как описан вызов - это функция.
Данная функция в этом модуле не описана.
Возможно, что эта функция описана в другом модуле\библиотеке.
В таком случае надо тот модуль\библиотеку подключить

uses <имя_модуля>;

2. В параметрах процедуры OO переменная matr описана как переменная целого типа:

Procedure OO(matr:integer);

Следует, как понимаю, определиться с ролью переменной - это функция или переменная целого типа.

PS: Давать такое имя процедуре не возбраняется, но поскольку O и 0 схожи, я так не делаю.



Как-то так, ...