Сложение матриц 3 на 3

for i:=1 to 3 do
  for j:=1 to 3 do
  a3[i,j]:=a1[i,j]+a2[i,j];

program pr1;
type tmati=array[1..50,1..50] of integer;
var a1,a2,a3: tmati;n,m,i,j:byte;
(*прцедура ввода элементов матрицы*)
procedure pr_wod_matr(n1,m1:byte;var mas:tmati);
var i,j:byte; kl:byte;
begin
  writeln('1-ввод случайным образом, 2-ввод с клавиатуры');
  readln(kl);
  if kl=1 then randomize;
  for i:=1 to n1 do
   for j:=1 to m1 do
    case kl of
    1:mas[i,j]:=random(256);
    2:begin
        writeln('Введи элемент',i,' строки ',j,' столбца матрицы');
        readln(mas[i,j]);
      end;
  end;
end;
(*процедура вывода элементов матрицы*)
procedure pr_out_matr(n1,m1:byte; mas:tmati);
var i,j:byte;
begin
   writeln('Матрица');
   for i:=1 to n1 do
   begin
     for j:=1 to m1 do
     write(mas[i,j]:6);
     writeln;
   end;
end;
begin
  writeln('Введите размерность матриц n,m');
  readln(n,m);
  writeln('Ввод 1-ой матрицы');
  pr_wod_matr(n,m,a1);
  writeln('Ввод 2-ой матрицы');
  pr_wod_matr(n,m,a2);
  writeln('Первая матрица:');
  pr_out_matr(n,m,a1);
  writeln('Вторая матрица:');
  pr_out_matr(n,m,a2);
  writeln;
  readln;
  for i:=1 to n do
    for j:=1 to m do
    a3[i,j]:=a1[i,j]+a2[i,j];
  writeln('Итоговая матрица:');
  pr_out_matr(n,m,a3);
  readln;
end.