Pascal/Turbo Pascal - cómo se crea una matriz con bucles repeat until?

uses crt;

const

    TALLA = 3;

var

    i,j:byte;

    mat:array[1..TALLA,1..TALLA] of integer;

begin

    {crear una matriz con repeat until}

    clrscr;

    i:=1;

    repeat

        j:=1;

        repeat

            write('Ingrese elemento ',i,',',j,': ');

            readln(mat[i][j]);

            inc(j);

        until j > TALLA;

        inc(i);

    until i > TALLA;

end.