Pascal/Turbo Pascal - Duda Matrices

{Mira}

var

  alea, h,u : integer;

  matriz : array[1..10,1..10] of integer;

 begin

    for h := 1 to 10 do

     for u := 1 to 10 do

     begin

         matriz[h,u] := random(99) + 1;

     end;

    writeln('  Lamatriz Num. 2=3 = ',matriz[2,3]);

    alea := 8;

    writeln(matriz[2,3] * alea);

     readln;

end.

program matriz;

uses crt;

var

  m : array[1..10,1..10] of integer;

  i,j,f,c:integer;

begin

  clrscr;

  randomize;

  f := 2;

  for i := 1 to 10 do

    begin

      c := 3;

      f := f + 2;

      for j := 1 to 10 do

        begin

          m[i,j] := random(500);

          gotoxy(c,f);

          writeln(m[i,j]);

          c := c + 5;

        end;

    end;

  readkey;

end.

{A ver entiendo que quieres esto sino es esto déjame un ejemplo de lo que quieres y como lo quieres sumar}

var

    filas, columna, promedio : integer;

     i, k : integer;

filas := 0;

columna := 0;

promedio := 0ñ

begin

for i := 1 to 10 do

   for k := 1 to 10 do

    filas := filas + m[k,i];

   for i := 1 to 10 do

     for k := 1 to 10 do

     columna := columna + m[i,k];

   promedio := columnas div 10;

  writeln('   Suma de filas = ',filas);

  writeln('   Suma de columnas = ',columna);

   writeln('   Promedio de columnas = ',promedio);

end.