Нужно набрать программу, которая выводит 2 массива и находит сумму элементов этих массивов. «даны два многомерных массива. найти их разность с=а-в.»

Const n =5;
type
  mas=array[1..n,1..n]of integer;
var
  a,b:mas;
  i,j,sum:integer;
begin
randomize;
sum:=0;
  for i:=1 to n do
      for j:=1 to n do
        a[i,j]:=Random(30);
  for i:=1 to n do
      for j:=1 to n do
        b[i,j]:=Random(30);
  writeln('Первый массив:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);
    writeln;
    end;
  writeln;
  writeln('Второй массив:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(b[i,j]:4);
    writeln;
    end;
  writeln('Разность двух массивов A-B: ');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          sum:=sum+a[i,j]+b[i,j];
          write(a[i,j]-b[i,j]:4);
        end;
        writeln;
    end;
    writeln('Сумма элементов двух массивов: ',sum);
end.