Array Dimensi Banyak

uses wincrt;  {Array Dimensi Banyak}
type tabel=array[1..2,1..2]of real;
var ma,mb,mHsl : tabel;
    bar,kol,x,y : byte;
begin
clrscr;
       write('Berapa Baris ? ');readln(bar);
       write('Berapa Kolom ? ');readln(kol);
       for x:=1 to bar do
       begin
         for y:=1 to kol do
         begin
           write('Matrik A[',x,',',y,']=');
           readln(ma[x,y]);
         end;
       end;

       for x:=1 to bar do
       begin
         for y:=1 to kol do
         begin
           write('Matrik B[',x,',',y,']=');
           readln(mb[x,y]);
         end;
       end;

       for x:=1 to bar do
       begin
         for y:=1 to kol do
         begin
           mHsl[x,y]:=ma[x,y]+mb[x,y];
           write('Hasil Tambah=[',x,',',y,']=');
           writeln(mHsl[x,y]:4:0);
         end;
         writeln;
       end;
readln;
end.