Program Pertambahan Matriks

program penambahan_matriks;
uses wincrt;
type larik=array [1..10,1..10] of integer;
var i,j,k,m,n:integer;
a,b,c:larik;
begin
write('baris matriks pertama/baris matriks kedua = ');readln(m);
write('kolom matriks pertama/kolom matriks kedua = ');readln(n);
clrscr;
writeln('nilai komponen matriks pertama = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(a[i,j]);
end;
writeln;
end;
clrscr;
writeln('nilai komponen matriks kedua = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(b[i,j]);
end;
writeln;
end;
clrscr;
for i:=1 to m do
begin
for j:=1 to n do
begin
for i:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
end;
end;
writeln('hasil penambahan matriks');
writeln;
for i:=1 to m do
begin
for j:=1 to n do

write(c[i,j]:9);
writeln;
end;
end.