Program Penjumlahan Matriks

Program penjumlahan matriks  dengan menggunakan perintah procedure pada bahasa pemrograman pascal memiliki beberapa perbedaan dengan yang tidak menggunakan perintah procedure.Namun, jika mau di bandingkan program yang menggunakan procedure jauh lebih muda.
program matriks;
uses crt;
const
     orde = 10;
type matrix = array[1..orde,1..orde] of integer;
var M1,M2 : matrix;
    m,n,pil : integer;
procedure isimatrik;
var  i,j : integer;
begin
     writeln('Penentuan Tipe Matriks 1');
     writeln('==============================================================');
     writeln;
     write('Masukan banyak baris matriks 1 = ');readln(m);
     write('Masukan banyak kolom matriks 1 = ');readln(n);
     for i:=1 to m do
         for j:=1 to n do
             begin
             gotoxy(j*12,i*7);
             readln(M1[i,j]);
             end;
     clrscr;
     writeln('Penentuan Tipe Matriks 2');
     writeln('================================================================');
     writeln;
     write('Masukan banyak baris matriks 2 = ');readln(m);
     write('Masukan banyak kolom matriks 2 = ');readln(n);
     for i:=1 to m do
         for j:=1 to n do
             begin
             gotoxy(j*12,i*7);
             readln(M2[i,j]);
             end;
end;
procedure jumlahmatrik(M1,M2 : matrix);
var hasil : matrix;
    i,j   : integer;
begin
     for i:=1 to m do
         for j:=1 to n do
             begin
                 hasil[i,j]:=m1[i,j]+m2[i,j];
             end;
     clrscr;
     writeln('Hasil Penjumlahan Matriks');
     writeln('================================================================');
     for i:=1 to m do
         for j:=1 to n do
             begin
             gotoxy(j*12,i*7);
             write(hasil[i,j]);
             end;
end;
begin
clrscr;
isimatrik;
jumlahmatrik(M1,M2);
readln;
end.