Помогите найти ошибку

[orandzheviyman]

Программа реализирует умножение марицы на матрицу и поиск корня квадратного из суммы квадратов элементов полученной вследствии умножения матрицы

uses crt;
type Tmat=array [1..4,1..4] of real;
var f:text;
    i,j:integer;
    D:Tmat;
    kvodrat:real;

PROCEDURE multiply (var D:Tmat);
var f:text;
    i,j,k:integer;
    C,E:Tmat;
Begin
 assign (f, 'matrix.txt');
 reset (f);
 readln (f);
  for i:=1 to 4 do
  for j:=1 to 4 do
   read (f, C[i,j]);
 close (f);
 assign (f, 'result.txt');
 rewrite (f);
  for i:=1 to 4 do
  for j:=1 to 4 do
  for k:=1 to 4 do begin
  E[i,j]:=E[i,j]+C[i,k]*D[k,j];
  write (f, E[i,j]); end;
 close (f);
 end;
 
FUNCTION kvadrat (E:Tmat);
 var summa, kvadr:real;
     f:text;
 Begin
 assign (f, 'result.txt');
 reset (f);
 Summa:=0;
 for i:=1 to 4 do
 for j:=1 to 4 do begin
  read (f, E[i,j]);
  Summa:=Summa+E[i,j]*E[i,j]; end;
 close (f);
 kvadr:=sqrt(Summa);
end;

BEGIN
writeln ('Введите матрицу D:');
for i:=1 to 4 do
 for j:=1 to 4 do
  read (D[i,j]);
multiply (D);
kvodrat:=kvadrat(E);
writeln ('Квадрат', kvodrat);
end.

[ZX Spectrum-128]

В процедуре multiply результат умножения матриц с (берется из файла) и d (подается на вход из главной программы) заносится в матрицу e. А на выход из процедуры идет матрица d - var d:tmat. Var перед переменной означает, что именно эта переменная будет выдаваться в главную программу.
Сделайте так:
PROCEDURE multiply (var E:Tmat); и из раздела var е убрать
На вход будет подаваться ссылка на глобальная матрица d и результат будет записан в нее же.

[orandzheviyman]

Сообщение от ZX Spectrum-128

В процедуре multiply результат умножения матриц с (берется из файла) и d (подается на вход из главной программы) заносится в матрицу e. А на выход из процедуры идет матрица d - var d:tmat. Var перед переменной означает, что именно эта переменная будет выдаваться в главную программу.
Сделайте так:
PROCEDURE multiply (var E:Tmat); и из раздела var е убрать
На вход будет подаваться ссылка на глобальная матрица d и результат будет записан в нее же.

поправил это, но теперь ошибка где

FUNCTION kvadrat (var E:Tmat);

и не подскажете статеечку, где оооооочень понятно написано всё про процедуры и функции?

[ZX Spectrum-128]

http://life-prog.ru/view_algoritmleng.php?id=103