Модуль

[Alexsey1991]

unit matr;
interface
  matrix:array[1..3,1..3] of integer;
  procedure Add(a,b:matrix;var c:matrx);
  procedure Sub(a,b:matrix;var c:matrx);
  procedure Mult(a,b:matrix;var c:matrx);
implementation
  procedure Add(a,b:matrix,var c:matrx);
  var
   i,k:integer;
  begin
    for i:=1 to 3 do
    for k:=1 to 3 do
    a[i,k]+b[i,k]=c[i,k];
  end;
  procedure Sub(a,b:matrix,var c:matrix);
  var
   i,k:integer;
  begin
    for i:=1 to 3 do
    for k:=1 to 3 do
   a[i,k]-b[i,k]=c[i,k];
  end;
end.

Создать модуль в котором определены процедуры над матрицами 3x3:сложение и вычитание.Тип матрих определен тоже в модуле.
Посмотрите что не правильно!А потом скажите что надо сделать чтоб модуль заработал??

[Stilet]

Ну вот потом использую модуль в uses:

uses matr;
var m,a,b:matrix;
begin
 add(a,b,m);
 и так далее
end.

Воод матриц только напиши. (Двумя циклами FOR)

[Alexsey1991]

А сохранять куда нибудь надо модуль??

[Stilet]

Ну конечно. в файл, который будет лежать рядом с вызывающей его программой.
Причем файл должен называться matr чтоб совпадало с именем модуля - это важно.