Паскаль.определение разности сумм главных и побочных диагоналей.

[reijii_nia]

Составить программу, которая будет определять разность сумм главных и побочных диагоналей двух двумерных массивов размером МхМ с использованием процедуры...в общем программу составил, однако процедура не срабатывает, прошу помогите и скажите что не так ибо в процедурах я слабоват

program raznost;
 uses crt;
const
  n=4;
var
  a:array[1..n,1..n] of integer;
  sum,sum1,sum2,i,j:integer;

procedure mass(var summ:integer);
var
i,j,s1,s2:integer;
begin
     if i=j then s1:=s1+a[i,j];
     if i+j=n+1 then s2:=s2+a[i,j];
    summ:=s1+s2;
   writeln;
 end;

begin
randomize;
writeln;
writeln('----------МАССИВ----------');
writeln;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10);
     write(a[i,j],' ');
    end;
    writeln;
  end;
  
 mass(sum1);
 
 randomize;
writeln;
writeln('----------МАССИВ----------');
writeln;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10);
     write(a[i,j],' ');
    end;
    writeln;
  end;
  
 mass(sum2);
 
 sum:=sum1-sum2;
 writeln;
 writeln('разность сумм главных и побочных диагоналей матриц = ',sum);
 Readln;
end.

[Serge_Bliznykov]

procedure mass(var summ:integer);
var
  i,j,s1,s2:integer;
begin
  {обязательно обнулить переменные!}
  s1 := 0;
  s2 := 0;
  
  {а циклы Вы забыли?! }
  for i:=1 to n do
    for j:=1 to n do begin
       if i=j then s1:=s1+a[i,j];
       if i+j=n+1 then s2:=s2+a[i,j];
   end;
   summ:=s1+s2;
 end;

p.s. но можно и одним циклом обойтись:

procedure mass(var summ:integer);
var
  i : integer;
begin
  summ := 0;
  for i:=1 to n do begin
       summ := summ+a[i,i]; {суммируем элемент главной диагонали}
       summ := summ+ a[i, n+1-i]; {суммируем элемент побочной диагонали}
  end;
end;

[Stilet]

И не сработает )
Во-первых тебе нужно две процедуры: Одна для главной другая для побочной. Во-вторых в процедуре нет цикла. Код то ты откуда-то видать взял, и попытался свое внести. Неудачка приключилась: Циклы тебе срочно придется изучать. Или хотя бы смотреть как в этом коде ввод матрицы делается, как пример прохода циклом.

[reijii_nia]

Спасибо огромное...
на каникулах побольше почитаю про процедуры...