Program Pascal Pada Matrik

program penjumlahan_matrix;
uses crt;
const
kolom=25;
baris=25;
type
matrix=array[1..baris,1..kolom] of integer;
var matrix_a,matrix_b:matrix;
a,b:integer;
procedure inputmatrix(var x:matrix);
var i,j:integer;
begin
  for i:=1 to a do
   begin
     for j:=1 to b do
      begin
        write('Masukan elemen[',i,',',j,']:');readln(x[i,j]);
      end;
    end;
end;
procedure cetakmatrix(var x:matrix);
var i,j:integer;
begin
  for i:=1 to a do
   begin
     for j:=1 to b do
      begin
        write(x[i,j]:4);
      end;
      writeln;
   end;
end;
procedure jumlahmatrix(var x,y:matrix);
var z:matrix;
i,j:integer;
begin
  for i:=1 to a do
   begin
     for j:=1 to b do
      begin
        z[i,j]:=x[i,j]+y[i,j];
        write(z[i,j]:4);
      end;
      writeln;
   end;
end;

begin
  clrscr;
  write('Masukan jumlah baris: ');readln(a);
  write('Masukan jumlah kolom: ');readln(b);
  if(a>25) or (b>25)then
   begin
     writeln('Max kolom dan baris adalah 25!!!');
     exit;
   end;

  writeln('Input matrik A');
  inputmatrix(matrix_a);
  writeln;
  writeln('Input matrik B');
  inputmatrix(matrix_b);
  writeln;
  writeln('Penjumlahan matrik A dan B');
  jumlahmatrix(matrix_a,matrix_b);
  readln;
end.