Pascal/Turbo Pascal - Matriz con Pascal

/* Hola, Estoy intentando realizar una matriz dinámica (donde los elementos i,j se calculan automaticamente). He inteentado construirla con un dynamic array pero no he podido. Alguien me podría ayudar?

Un saludo!

creo que es esto lo

que quieres

*/

program lawebpro;

uses crt;

  const

     maxi = 9;

     type

       matri = array  [1..maxi,1..maxi] of integer ;

var

  sa, i, j , tempi , tempj : integer ;

  xx : matri ;

  function loteria(nu:integer):integer ;

begin

  randomize;

  loteria := random(nu) + 1;

end;

begin

 clrscr;

 i := 0 ;

 j := 0 ;

 repeat

  i := loteria(maxi);

 until (i >= 3) and (i <= maxi);

  repeat

    j := loteria(maxi);

   until (j <> i);

 writeln(' Estas una matriz con ', i, ' filas y ',j,' columnas ');

  writeln;

 for tempi := 1 to i do

begin

  for tempj := 1 to j do

  begin

  xx[tempi,tempj] := random(random(300));

  end;

  writeln;

end;

for tempi := 1 to i do

begin

  for tempj := 1 to j do

  begin

 write(' ',xx[tempi,tempj]:6);

  end;

  writeln;

end;

  readln;

end.

program DinArray;

uses classes;

var

    lista: TStringList;

    dato: string;

    i: integer;

begin

    lista := TStringList.Create;

    repeat

        write('Introduce un dato (Intro para acabar): ');

        readLn(dato);

        if dato <> '' then

            lista.Add(dato);

    until dato = '';

    for i:= lista.Count-1 downto 0 do

        writeLn(lista[i]);

    writeLn('Ordenando alfabéticamente...');

    lista.Sort;

    writeLn('Y guardando en "lista.txt"...');

    lista.SaveToFile('lista.txt');

end.

Uses CRT;

Type

  TbyteArray = Array of Byte;

var

  VArray : TbyteArray;

  I      : integer;

begin

  setlength(Varray,11);

  for i:=1 to 10 do

    varray[i] := i*(i+2);

  for i :=1 to 10 do

    writeln(varray[i]);

    readkey;

end.