Определите процедуру с параметрами для сложения матриц

const n = 7;
var 
  e: char;
  A,B,C: array [1..n,1..n] of real;
  i,j: integer;
   Begin
    Write ('Вычислить C=(A+B)^2 (сумма двух матриц возводится в квадрат)нажмите "Enter" чтобы продолжить');
     readln;//необходимо нажать Enter,чтобы продолжить
    Write ('Создать матрицы произвольно? Y/N');
     readln(e); //здесь пользователю предлагается заполнить матрицу произвольными значениями
      if (e='y') or (e='Y') then
        begin // в случае,если пользователь соглашается - запускается программа автозаполнения матриц
          randomize;
          writeln ('Создание Матриц..');
          for i:=1 to n do
            begin
             writeln;
             for j:=1 to n do
              begin
               A[i,j]:=random(20)+10;
               write(A[i,j],' ');
              end; 
            end;
          writeln;
          for i:=1 to n do
           begin
            writeln;
            for j:=1 to n do
             begin
              B[i,j]:=random(20)+10;
              write(B[i,j],' ');
             end;
           end;
         end;
     //программа случайного заполнения здесь заканчивает свою работу
  [COLOR="Red"][B]   else if (e='n') or (e='N') then [/B][/COLOR]
     //В случае если пользователь отказывается от произвольного заполнения матриц,ему будет предложено внести значения вручную
      begin
        writeln ('Введите матрицы вручную:');
        writeln ('Первая матрица (построчно):');
        for i:=1 to n do
          for j:=1 to n do
            read(A[i,j]);
        writeln;
        writeln('Вторая матрица (построчно):');
        for i:=1 to n do
          for j:=1 to n do
            read(B[i,j]);
      end
     else writeln('Ошибка ввода');
     
     if (e='n') or (e='N') or (e='y') or (e='Y') then
     begin
      writeln;
      writeln;
      writeln('C=: '); //Здесь выводится сумма матриц A и B возведённая в квадрат
      for i:=1 to n do
        begin
          writeln;
          for j:=1 to n do
            begin
              C[i,j]:=(A[i,j]+B[i,j])*(A[i,j]+B[i,j]);
              write(C[i,j],' ');
            end;  
        end;
     end;
  end.