LP - Matriz, usuário alimentando dinamicamente e imprimindo em tela - 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);  
    

    i:=1;
    j:=1; 
    repeat
        repeat
          writeln('Na posicao da linha ',i,' e da coluna ',j,' se encontra o valor ',mat[i,j]);
          j:=j+1;
        until (j=4);
        i:=i+1;
        j:=1;
    until (i=3);

       
end.