Program Penjumlahan Matrix

uses crt;
const
kolom=2;
baris=2;

type
matrix=array[1..baris,1..kolom] of integer;

var
matrix_A,matrix_B:matrix;
a,b:integer;


{----Input Matrix----}

procedure InputMatrix(var x:matrix);
var
i,j:integer;

begin
for i:=1 to a do
begin
for j:=1 to b do
begin
Write('Masukan Elemen[',i,', ',j,'] : ');readln(x[i,j]);
end;
end;
end;


{----Cetak Matrix----}

procedure CetakMatrix(var x:matrix);
var
i,j:integer;

begin
for i:=1 to a do
begin
for j:=1 to b do
begin
Write(x[i,j]:6);
end;
writeln;
end;
end;


{----Penjumlahan Matrix----}

procedure JumlahMatrix(var x,y:matrix);
var
z:matrix;
i,j:integer;
begin
for i:=1 to a do
begin
for j:=1 to b do
begin
z[i,j]:=x[i,j] + y[i,j];
Write(z[i,j]:6);
end;
writeln;
end;
end;


{----Program Utama----}

begin
Textbackground(white);
Textcolor(black);
clrscr;
writeln(' Nama : SUGIANTO ');
writeln(' Kelas : 2.j ');
writeln(' NPM : 200943500699 ');
writeln(' Jurusan : Teknik Informatika ');
writeln(' Tugas : Algoritma 2 ');
writeln('=============================');
write('Masukan Jumlah Baris : ');readln(a);
write('Masukan Jumlah Kolom : ');readln(b);
writeln;
writeln('Input Martix A');
InputMatrix(matrix_A);
writeln;
writeln('Input Martix B');
InputMatrix(matrix_B);
clrscr;
writeln('Tampilan untuk Matrix A dan Matrix B');
writeln;
writeln('**** Matrix A ****');
writeln;
CetakMatrix(matrix_A);
writeln;
writeln('**** Matrix B ****');
writeln;
CetakMatrix(matrix_B);
writeln;
writeln('Penjumlahan antara Matrix A dan Matrix B adalah : ');
writeln;
JumlahMatrix(matrix_A,matrix_B);
readln;
end.