Поместить процедуру в модуль - PascalABC.NET

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

Спасибо! Теперь мне эту процедуру в модуль никак не засунуть! Может подскажете, пожалуйста!!!

                    Листинг программы
                
 
                        
                          
                    
unit modul_1;
interface
type matr=array [1..10,1..10] of integer;
procedure SGD(x:matr; var sum:real);
implementation
procedure SGD(x:matr; var sum:real);
var
  i, n: integer;
begin
  Sum:=0;
  for i:=1 to n do
    Sum:=Sum+x[i,i];
end;
begin
end.

                    Листинг программы
                
 
                        
                          
                    
Uses modul_1;
var
  A:matr;
  i,j,n:integer;
  S:real;
 begin
  write ('Введите количество строк/столбцов квадратной матрицы - ');
  readln (n);
  randomize;
  for i:=1 to N do
    for j:=1 to N do
      A[i,j]:= random(100);
 
  for i:=1 to n do
    begin
      for j:=1 to n do
        write ('  ',A[i,j],'  ');
      writeln;
    end;
  writeln;
  SGD(A, S);
  writeln (s)
 end.

Решение задачи: «Поместить процедуру в модуль»

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

unit modul_1;
interface
type matr=array [1..10,1..10] of integer;
procedure SGD(x:matr;n:integer; var sum:integer);
implementation
procedure SGD(x:matr;n:integer; var sum:integer);
var i:integer;//n параметр процедуры
begin
Sum:=0;
for i:=1 to n do
Sum:=Sum+x[i,i];
end;
end.

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

Объявлен тип массива матрица - matr, размером [1..10,1..10] (строка из 10 элементов, столбец из 10 элементов) с типом данных integer (целое число).
Объявлена процедура SGD (очевидно, это сокращение от Some Great Dumb).
В процедуре SGD объявлена переменная i типа integer (целое число), которая будет использоваться в качестве параметра цикла.
Внешняя переменная n типа integer (целое число) передается в качестве параметра в процедуру SGD.
В процедуре SGD объявлена внешняя переменная sum типа integer (целое число), которая будет использоваться для хранения суммы.
Тело процедуры SGD содержит цикл for, который выполняется от i=1 до n.
Внутри цикла sum увеличивается на x[i,i], где i - это текущая итерация цикла.
После выполнения всех итераций цикла, значение sum возвращается из процедуры.
Код завершается.