Заданы три квадратные матрицы A,B,C. Определить длину вектора Х(х1,х2,х3), если Х1-сумма элементов матрицы А, Х2-сумма элементов матрицы B, X3-сумма элементов матрицы С. Вычисления суммы элементов квадратной матрицы оформить в виде подпрограммы — Pascal(Паскаль)

uses crt;
 
const n = 3;
type
mas = array [1..n,1..n] of integer;
var
a,b,c:mas;
x: array [1..3] of integer;
i,j: integer;
buf:integer;
 
procedure zapolnenie;
begin
randomize;
for i:=1 to n do
 for j:=1 to n do
 begin
 a[i,j]:=random(2);
 b[i,j]:=random(2);
 c[i,j]:=random(2);
 end
end;
 
 
procedure vuvodmas_A;
begin
for i:=1 to n do
 begin
 for j:=1 to n do
 write(a[i,j],' ');
 writeln;
 end;
end;
 
procedure vuvodmas_B;
begin
for i:=1 to n do
 begin
 for j:=1 to n do
 write(b[i,j],' ');
 writeln;
 end;
end;
 
procedure vuvodmas_C;
begin
for i:=1 to n do
 begin
 for j:=1 to n do
 write(c[i,j],' ');
 writeln;
 end;
end;
 
procedure search;
var
sumA,sumB,sumC: integer;
begin
sumA:=0;
sumB:=0;
sumC:=0;
for i:=1 to n do
 for j:=1 to n do
 begin
 sumA:=SumA+a[i,j];
 sumB:=SumB+B[i,j];
 sumC:=SumC+C[i,j];
end;
x[1]:=sumA;
x[2]:=sumB;
x[3]:=sumC;
end;
 
procedure VuvodMasX;
begin
writeln('Array X') ;
for i:=1 to 3 do
write(x[i],' ')
end;
 
begin
zapolnenie;
vuvodmas_A;
writeln;
vuvodmas_B;
writeln;
vuvodmas_C;
writeln;
search;
vuvodmasX;
end.