Código para una tabla

[[AgustinOrtu]]

Esa fue la respuesta en español, la respuesta en Delphi (y que creo que es la que querias) seria algo asi:

Código Delphi [-]
program Tarea;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TRango = 1..10;
  TTabla = array [TRango, TRango] of Integer;

var
  Tabla: TTabla;

procedure Llenar;
var
  I, J: Integer;
begin
  Writeln('Llenando tabla');
  Randomize;
  for I := 1 to 10 do
    for J := 1 to 10 do
      Tabla[I, J] := Random(100);
end;

procedure Imprimir;
var
  I, J: Integer;
begin
  Writeln('Imprimiendo tabla');
  Writeln;

  for I := 1 to 10 do
  begin
    Writeln('Fila ' + IntToStr(I));
    for J := 1 to 10 do
      Writeln(Format('[%d, %d] = %d', [I, J, Tabla[I, J]]));

    Writeln;
  end;
end;

function Sumar: Integer;
var
  I, J: Integer;
begin
  Result := 0;
  for I := 1 to 10 do
    for J := 1 to 10 do
      Result := Result + Tabla[I, J];
end;

begin
  try
    Llenar;
    Imprimir;
    Writeln('La suma de todas las filas y columnas es ' + IntToStr(Sumar));

    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.