Penjumlahan Matrix

Ini dia penjumlahan matrix, walopun belum gnerti bener tetep aja diposting -___- (bener-bener gk bertanggung jawab).
well minna, kali ini saya gk bakal banyak bekoar-koar (tenggorokan lagi sakit + gk enak badan ), so cek it out aja deh.



Program Matrix;
Uses wincrt;
Var
A,B,Hasil :Array [1..5,1..5] of integer;
m,n,i,j,k : integer;

Begin

writeln;
write('Banyak Baris Matrik: ');readln(m);
write('Banyak Kolom Matrik: ');readln(n);
writeln;

{input data nilai A}
writeln('MATRIX A');

for i:=1 to m do
begin
for j:=1 to n do
begin
write('A [ ',i,',',j, ' ] : ');readln (A[i,j]);
end;
end;
writeln;
begin
{input data nilai B}
writeln('MATRIX B');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('B [ ',i,',',j, ' ] : ');readln (B[i,j]);
end;
end;
end;

writeln;
writeln('MATRIX A + B ');
for i:=1 to m do
begin
for j:=1 to n do
begin
Hasil[i,j]:=A[i,j]+B[i,j];

end;
end;
for i:= 1 to 2 do
begin
for j:= 1 to 2 do
begin

write(Hasil[i,j]:2);


end;
end;
end.


maka output yang dihasilkan nanti