Program Penjumlahan Matriks Pada Pascal

uses crt;
var B, K, BR, KL, C, L : Byte;
M1,M2,M3 : array[1..10,1..10] of byte;
begin
clrscr;
gotoxy (10,5) ; write ('***** Menjumlahkan dua buah matriks *****');
gotoxy (10,7) ; write ('jumlah ordo matriksnya =  x   ');
gotoxy (35,7) ; readln (B);
gotoxy (39,7) ; readln (K);
gotoxy (10,9) ; write ('masukkan matriks kesatu');
L :=10;
for BR := 1 to B do
begin
C := 15;
for KL := 1 to K do
begin
gotoxy (C,L); readln(M1[BR,KL]);
C := C + 2;
end;
L := L + 1;
end;
gotoxy (10,14) ; write ('masukkan matriks kedua');
L :=15;
for BR := 1 to B do
begin
C := 15;
for KL := 1 to K do
begin
gotoxy (C,L); readln(M2[BR,KL]);
c := C + 2;
end;
l := L + 1;
end;
gotoxy (10,18) ; write ('maka hasil penjmlahan matriks');
L :=20;
for BR := 1 to B do
begin
C := 15;
for KL := 1 to K do
begin
M3[BR,KL] := M1[BR,KL] + M2[BR,KL];
gotoxy (C,L) ; Write (M3[BR,KL]);
C := C + 2;
end;
L := L + 1;
end;
readln;
end.