Program Matriks Pertambahan dan Penjumlahan Pascal

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

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

procedure t.tampil;
begin
     writeln;
     writeln('Matriks I');
     writeln(m1[1,1]:5,m1[1,2]:5);
     writeln(m1[2,1]:5,m1[2,2]:5);
     gotoxy (35,7); writeln('Matriks II');
     gotoxy (35,8); writeln(m2[1,1]:5,m2[1,2]:5);
     gotoxy (35,9); writeln(m2[2,1]:5,m2[2,2]:5);
            readln;
end;

procedure t.tambah;
begin
     gotoxy (23,11); writeln('Hasil pemjumlahan matriks');
     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 (30,12); writeln(lok[1]:5,lok[2]:5);
     gotoxy (30,13); writeln(lok[3]:5,lok[4]:5);
     readln;
end;

procedure t.kurang;
begin
     gotoxy (4,9); writeln('Hasil Matriks I - 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]:5,lok[2]:5);
     gotoxy (9,12); writeln(lok[3]:5,lok[4]:5);
     gotoxy (4,9); writeln('Hasil Matriks II - 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 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 (25,7); writeln('Pilihan [1,4] :'); readln(pil);

case pil of
1: begin
        m.input;
        m.tampil;
   end;
2: m.tambah;
3: m.kurang;
end;

until(pil)=4;
end.

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

Output :