MEMBUAT MATRIKS DARI PASCAL = (+)(-)

uses crt;
type t = object
        m1, m2 : array [1..2,1..2] of integer;
        lok : array [1..4] of integer;
        procedure input;
        procedure tambah;
        procedure tampil;
            procedure kurang;
end;
var         m : t;
        i,j,k,pil : integer;

procedure t.input;
begin
    clrscr;
    writeln (' Input Matrik I');
    for i:= 1 to 2 do
    begin
        for j := 1 to 2 do
        begin
            write ('Elemen Matrik [',i,',',j,']:');
                      readln (m1[i,j]);
               end;
      end;
      gotoxy (35,1); writeln('input Matrik II');
      k:=2;
      for i:= 1 to 2 do
    begin
          for j := 1 to 2 do
             begin
                 gotoxy (35,k);
                inc (k);
                write ('elemen Matrik [',i,',',j,']: ');
                readln (m2[i,j]);
             end;
      end;
end;

procedure t.tampil;
begin
    writeln;
       writeln(' *Matrik I*');
       writeln (m1[1,1]:5,m1[1,2]:5);
       writeln (m1[2,1]:5,m1[2,2]:5);
       gotoxy(35,7);writeln('* Matrik II *');
       gotoxy (35,8);writeln (m2[1,1]:5,m2[1,2]:5);
       gotoxy (35,9);writeln (m2[1,1]:5,m2[2,2]:5);
       readln;
end;
procedure t.tambah;
begin
    gotoxy (18,1);writeln ('Hasil Penjumlahan Matrik');
       lok[1] := m1[1,1]+m2[1,1];
       lok[2] := m1[1,2]+m2[1,2];
       lok[3] := m1[2,1]+m2[2,1];
       lok[4] := m1[2,2]+m2[2,2];
       gotoxy (21,12);writeln (lok[1]:5,lok[2]:5);
       gotoxy (21,13);writeln(lok[3]:5,lok[4]:5);
       readln;
end;

procedure t.kurang;
begin
    gotoxy (4,9);writeln('Hasil Mtarik I - Matrik II ');
       lok [1] := m1[1,1]-m2[1,1];
       lok [2] := m1[1,2]-m2[1,2];
       lok [3] := m1[2,1]-m2[2,1];
       lok [4] := m1[2,2]-m2[2,2];
    gotoxy (9,11);writeln(lok[1]:1,lok[2]:5);
       gotoxy (9,12);writeln(lok[3]:5,lok[4]:5);
       gotoxy (40,9);writeln ('Hasil Matrik II - Matrik I');
       lok [1] := m2[1,1]-m1[1,1];
       lok [2] := m2[1,2]-m1[1,2];
       lok [3] := m2[2,1]-m1[2,1];
       lok [4] := m2[2,2]-m1[2,2];
       gotoxy (45,11);writeln (lok[1]:5,lok[2]:5);
       gotoxy (45,12);writeln(lok[3]:5,lok[4]:5);
       readln;
end;

begin
repeat
clrscr;
gotoxy (25,1);writeln('***** Menu Matrik *****');
gotoxy (25,2);writeln('1. Input Matrik');
gotoxy (25,3);writeln('2. Penjumlahan Matrik');
gotoxy (25,4);writeln('3. Pengurangan Matrik');
gotoxy (25,5);writeln('4. Keluar');
gotoxy (25,6);writeln('*************************');
gotoxy (27,7);write('Pilihan [1..4] :');readln (pil);
case pil of
begin
            m.input;
            m.tampil;
            end;
m.tambah;
 m.kurang;
end;
until (pil) = 4;
end.

begin
m.input;
m.tampil;
m.tambah;
end.