Program Matriks

program matriks;
uses crt;
const
     orde = 3;
type
matrik=array[1..orde, 1..orde] of integer;

var
A,B,H : matrik;
pil : integer;

procedure IsiMatrik;
var
I,J:integer;
begin
clrscr;
writeln('masukkan data A');
for I:=1 to orde do
    for J:=1 to orde do
        begin
        write('A[',I,',',J,'] : ');
        readln(A[I,J]);
        end;
clrscr;
writeln('masukkan data B');
for I:=1 to orde do
    for J:=1 to orde do
        begin
        write(' B[',I,',',J,'] : ');
        readln(B[I,J]);
        end;
end;

procedure JumlahMatrik (A,B : matrik);
var
H : matrik;
I,J : integer;
begin
for I:=1 to orde do
    for J:=1 to orde do
        begin
        H[I,J]:=A[I,J]+B[I,J];
        end;
clrscr;
writeln('hasil penjumlahan matriks');
for J:=1 to orde do
    begin
    writeln(H[1,J]:3,H[2,J]:4,H[3,J]:4);
    end;
end;

procedure KurangMatrik (A,B : matrik);
var
H : matrik;
I,J : integer;
begin
for I:=1 to orde do
    for J:=1 to orde do
        begin
        H[I,J]:=A[I,J]-B[I,J];
        end;
clrscr;
writeln('hasil pengurangan matriks');
for J:=1 to orde do
    begin
    writeln(H[1,J]:3,H[2,J]:4,H[3,J]:4);
    end;
end;

procedure KaliMatrik (A,B : matrik);
var
H : matrik;
I,J,Z : integer;
begin
for I:=1 to orde do
    for J:=1 to orde do
        begin
        H[I,J]:=0;
        for Z:=1 to orde do
            H[I,J]:=H[I,J]+A[I,Z]+B[Z,J];
        end;
clrscr;
writeln('hasil perkalian matriks');
for J:=1 to orde do
    begin
    writeln(H[1,J]:3,H[2,J]:4,H[3,J]:4);
    end;
end;

begin
clrscr;
writeln('M E N U':14);
writeln('=====================');
writeln('1 Penjumlahan Matriks');
writeln('2 Pengurangan Matriks');
writeln('3 Perkalian Matriks');
writeln('');
write('Tentukan Pilihan Anda ^_^ : '); readln(pil);
clrscr;
case pil of
1 : begin
    IsiMatrik;
    JumlahMatrik(A,B);
    end;
2 : begin
    IsiMatrik;
    KurangMatrik(A,B);
    end;
3 : begin
    IsiMatrik;
    KaliMatrik(A,B);
    end;
end;
end.