LP - Matriz, usuário alimentando dinamicamente - Pascal

Program Matriz;
Var 
    mat:array[1..2,1..3] of integer;    // linha coluna
    i,j,valor:integer;
    
Begin
    i:=1;
    j:=1;

    repeat
        repeat
          write('Digite a posicao da linha ',i,' e da coluna ',j,'...:');   
          read(mat[i,j]);
          j:=j+1;
        until (j=4);
        i:=i+1;
        j:=1;
    until (i=3);
end.