Паскаль.помогите с процедурами!!!

[reijii_nia]

Нужно составить программу которая у двух массивов размерностью NxN вычисляет разность суммы главных и побочных диагоналей...программу составить с использованием процедур...я честно с процедурами не очень...в теории знаю а на практике не алё х_х
ну кое какой код сделал...но он толком не работает...помогите пожалуйста

program raznostj;
uses
 crt;
const
 n=4;
var
 a: array[1..n,1..n] of integer;
 s1,s2,sum,summ,sum1,sum2:integer;

procedure mass;
var
i,j,s1,s2,summ:integer;
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],' ');
     if i=j then s1:=s1+a[i,j];
     if i+j=n+1 then s2:=s2+a[i,j];
    end;
    summ:=s1+s2;
   writeln;
  end;
 end;
 
begin
 mass;
 sum1:=summ;
 mass;
 sum2:=summ;
 sum:=sum1-sum2;
 writeln;
 writeln('разность сумм главных и побочных диагоналей матриц = ',sum);
 readln;
end.

Кнопкой # код выделять надо, а не вбивать не знамо чего

[newerow1989]

const
  n=4;
var
  a:array[1..n,1..n] of integer;
  sum,sum1,sum2:integer;

procedure mass(var summ:integer);
var
i,j,s1,s2:integer;
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],' ');
     if i=j then s1:=s1+a[i,j];
     if i+j=n+1 then s2:=s2+a[i,j];
    end;
    summ:=s1+s2;
   writeln;
  end;
 end;

begin
 mass(sum1);
 mass(sum2);
 sum:=sum1-sum2;
 writeln;
 writeln('разность сумм главных и побочных диагоналей матриц = ',sum);
 Readln;
end.

Переделал. Так что ли?

[reijii_nia]

Сообщение от newerow1989

const
  n=4;
var
  a:array[1..n,1..n] of integer;
  sum,sum1,sum2:integer;

procedure mass(var summ:integer);
var
i,j,s1,s2:integer;
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],' ');
     if i=j then s1:=s1+a[i,j];
     if i+j=n+1 then s2:=s2+a[i,j];
    end;
    summ:=s1+s2;
   writeln;
  end;
 end;

begin
 mass(sum1);
 mass(sum2);
 sum:=sum1-sum2;
 writeln;
 writeln('разность сумм главных и побочных диагоналей матриц = ',sum);
 Readln;
end.

Переделал. Так что ли?

Да. спасибо)))))

[newerow1989]

Пожалуйста!