Tabel Array 2D

Program tabel_array_2d;       
Uses wincrt;
Var
tabel: Array[1..100,1..100] of Integer;
i,j,a,b,c,d,e,f,g: Integer;
Begin
ClrScr;
write('berapa kolom  =');read(a);
write('berapa baris  =');read(b);
Writeln(' Elemen matrik satu');
For i := 1 to b Do
Begin
For j := 1 to a Do
Begin
Write('Elemen baris -',i,' Kolom -',j,'= ');
Readln(tabel[i,j]);
End;
end;
clrscr;
For i := 1 to b Do
 Begin
 f:=0;
  For j := 1 to a Do
    begin
    c:=9*j;
    d:=2*i;
    gotoxy(c,d);write('+========+');
    gotoxy(c,d+1);write(':   ',tabel[i,j]);
    f:=f+tabel[i,j];
    end;
 gotoxy(9*(j+1),d+1);write(': ',f);
 end;
for j:=1 to a do
 begin
 g:=0;
 c:=9*j;
 d:=2*(i+1);
 for i:=1 to b do
 g:=g+tabel[i,j];
 gotoxy(c,d);write('+========+');
 gotoxy(c,d+1);write('    ',g);
end;
readln;
end.