Помогите безотлагательно! Нужно набрать программку, которая выводит 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('1-ый массив:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);
    writeln;
    end;
  writeln;
  writeln('2-ой массив:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(b[i,j]:4);
    writeln;
    end;
  writeln('Разность 2-ух массивов 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.