Penjumlahan Dan Pengurngan Matriks

uses crt;
{deklarasi Prosedure dan variable}
type d = object
        m1, m2 : array [1..100,1..100] of integer;
        procedure input;
        procedure tambah;
        procedure kurang;
        procedure kali;
        procedure tampil;
end;
var         c : d;
        b,k,s,pil,ordo : integer;

{mendeklarasikan isi dari prosedure input}
procedure d.input;
begin
    clrscr;
    write('MASUKKAN ORDO MATRIKS:');
    readln(ordo);
    writeln (' INPUT MATRIKS A');
    for b:= 1 to ordo do
    begin
        for k := 1 to ordo do
        begin
            write ('ELEMENT MATRIKS [',b,',',k,']:');
                                    readln (m1[b,k]);
            end;
      end;
            gotoxy (35,2); writeln('INPUT MATRIKS B');s:=3;
            for b:= 1 to ordo do
            begin
                for k:= 1 to ordo do
            begin
                        gotoxy (35,s);
                            inc (s);
                            write ('ELEMENT MATRIKS [',b,',',k,']: ');
                            readln (m2[b,k]);
            end;
      end;
end;

{mendeklarasikan isi dari prosedur tampil}
procedure d.tampil;
begin
        clrscr;
        writeln(' MATRIKS A');
        for b:= 1 to ordo do
        begin
            for k:= 1 to ordo do
                begin
                write(m1[b,k]:3);
            end;
            writeln;
            end;
        gotoxy(35,1);writeln('MATRIKS B');s:=1;
        for b:= 1 to ordo do
        begin
        inc(s);
        gotoxy(35,s);
            for k:= 1 to ordo do
            begin
                write(m2[b,k]:3);
            end;
            writeln;
            end;
readln;
end;

{mendeklarasikan isi dari prosedure tambah}
procedure d.tambah;
begin
    gotoxy (13,12);writeln ('HASIL PENJUMLAHAN MATRIKS A DAN B');s:=12;
        for b:= 1 to ordo do
        begin
        inc(s);
        gotoxy(14,s);
            for k:= 1 to ordo do
            begin
            write((m1[b,k]+m2[b,k]):3);
            end;
            writeln;
            end;
    readln;
end;

{mendeklarasikan isi dari prosedure kurang}
procedure d.kurang;
begin
        gotoxy(13,12);writeln('HASIL PENGURANGAN MATRIKS A OLEH B');s:=12;
        for b:= 1 to ordo do
        begin
            inc(s);
            gotoxy(14,s);
            for k:=1 to ordo do
            begin
            write((m1[b,k]-m2[b,k]):3);
            end;
            writeln;
            end;
readln;
end;

{pembuatan tampilan menu utama}
begin
repeat
clrscr;
gotoxy (25,1);writeln('+++++++ MENU MATRIKS +++++++');
gotoxy (25,2);writeln('1. INPUT MATRIKS');
gotoxy (25,3);writeln('2. PENJUMLAHAN MATRIKS');
gotoxy (25,4);writeln('3. PENGURANGAN MATRIKS');
gotoxy (25,5);writeln('4. KELUAR');
gotoxy (25,6);writeln('++++++++++++++++++++++++++++');
gotoxy (28,7);write('PLIHAN ANDA [1..4] :');readln (pil);

{pendeklarasian prosedure untuk melakukan inputan atau pilihan pada menu}
case pil of
1 : begin
        c.input;
        end;
2 : begin
        c.tampil;
        c.tambah;
        end;
3 : begin
        c.tampil;
        c.kurang;
        end;
4 : end;
until (pil) = 4;
end.

{untuk memanggil Prosedure yang sudah di deklarasikan sebelumnya}
begin
c.input;
c.tampil;
c.tambah;
end.