Menghitung Elemen array 2 dimensi perbaris dan perkolom dengan Pascal

Assalamu'alaikum warahmatullahi wabarakatuh,

teriring salam dari penghuni langit, akhirnya setelah berhari-hari mencari-cari dan mengutak atik source code program, akhirnya ditemukan juga bagaimana cara menghitung rata-rata perbaris dan perkolom dari sebuah matriks atau array 2 dimensi, pada awalnya memang susah tapi karena saat KUIS di kampus membuat bingung dan penasaran akhirnya membuahkan hasil juga, berikut source codenya :


program dimension2;
uses crt;
var
   nilai: Array [1..50,1..50] of integer;
   n,m,i,j:integer;
   rata21,rata22:real;
   totalbaris,totalkolom:array[1..50]of integer;
begin
   clrscr;
   for i:=1 to 5 do begin
      for j:=1 to 3 do begin
      write('insert nilai A : ',i,',',j,':');
      readln(nilai[i,j]);
      totalbaris[i]:=totalbaris[i]+nilai[i,j];
      totalkolom[j]:=totalkolom[j]+nilai[i,j];
      end;
   end;
   for i:=1 to 5 do begin
      for j:=1 to 3 do  begin
      write(nilai[i,j]:3);
      end;
      writeln;
   end;
   for i:=1 to 5 do
      begin
      rata21:=(totalbaris[i]/j);
      writeln('* rata-rata baris[',i,']=',rata21:2,1,'*');
   end;

   for j:=1 to 3 do
      begin
      rata22:=(totalkolom[j]/i);
      writeln('* rata-rata kolom[',j,']=',rata22:2,1,'*');
      end;
      readln;
end.

berikut outputnya :

ok teman2 silahkan cek dengan kalkulator dan buktikan hasilnyaselamat belajar, jangan lupa komentarnya !!!