Сложение, вычитание и умножение матриц на константу - PascalABC.NET

Формулировка задачи:

Реализовать в виде под программ для выполнения операций для квадратных матриц: сложение вычитание умножение на константу Решить задачу вычисления следующего выражения: k*(A+B)-C выдает ошибку:

type tarray=array[1..100] of integer;
var a,b,c,f:tarray;
i,j,k,n:integer;
procedure sum(n:integer;var d,e,s:tarray);
var i,j:integer;
begin
for i:=1 to n do
 for j:=1 to n do
 s[i,j]:=d[i,j]+e[i,j];
 end;
 procedure vich(n:integer;var d,v:tarray);
var j,i:integer;
begin
for i:=1 to n do
 for j:=1 to n do
 v[i,j]:=d[i,j]-e[i,j];
 end;
 procedure mnoj(n:integer;var d:tarray;y:integer);
 var i,j:integer;
 begin
 for i:=1 to n do
  for j:=1 to n do
  d[i,j]:=y*d[i,j];
  end;
begin
readln(n);
for i:=1 to n do begin
 for j:=1 to n do
 read(a[i,j]);
 readln;
 end;
for i:=1 to n do begin
 for j:=1 to n do
 read(b[i,j]);
 readln;
 end;
for i:=1 to n do begin
 for j:=1 to n do
 read(c[i,j]);
 readln;
 end;
 readln(k);
sum(n,a,b,f);
mnoj(n,f,k);
vich(n,f,c);
for i:=1 to n do begin
 for j:=1 to n do
 write(a[i,j]);
 writeln;
 end;
 end.

Решение задачи: «Сложение, вычитание и умножение матриц на константу»

Листинг программы

unit matrix;
Interface
type tarray=array[1..100,1..100] of real;
procedure sum(n:integer;var d,e,s:tarray);
var i,j:integer;
procedure dec(n:integer;var d,e,v:tarray);
procedure mnoj(n:integer;var d:tarray;y:integer);
Implementation 
procedure sum;
begin
for i:=1 to n do
 for j:=1 to n do
 s[i,j]:=d[i,j]+e[i,j];
end;
procedure dec;
begin
for i:=1 to n do
 for j:=1 to n do
 v[i,j]:=d[i,j]-e[i,j];
end;
procedure mnoj;
begin
for i:=1 to n do
 for j:=1 to n do
 d[i,j]:=y*d[i,j];
 end;
 end.

Объяснение кода листинга программы

Код выполняет операции сложения, вычитания и умножения матриц.

Объявлены типы данных:
- tarray - массив размером 100x100 для хранения векторов и матриц
- integer - целочисленный тип для итераций
Объявлены процедуры:
- sum - для сложения матрицы d и e и сохранения результата в матрицу s
- dec - для вычитания матрицы e из матрицы d и сохранения результата в матрицу v
- mnoj - для умножения матрицы d на число y и сохранения результата в матрицу d
В процедуре sum выполняется двойной цикл for для прохода по всем элементам матрицы d и e. Значение суммы элементов d[i,j] и e[i,j] сохраняется в элемент матрицы s[i,j].
В процедуре dec выполняется двойной цикл for для прохода по всем элементам матрицы d и e. Значение разности элементов e[i,j] и d[i,j] сохраняется в элемент матрицы v[i,j].
В процедуре mnoj выполняется двойной цикл for для прохода по всем элементам матрицы d. Значение произведения элемента d[i,j] на число y сохраняется в элемент матрицы d[i,j].