Pascal/Delphi Mtariz quadrada no pascal

[Pedroso90]

Faça um programa em Pascal que receba um valor inteiro x, maior que 0 e menor que 20, e crie uma matriz quadrada preenchida da seguinte maneira:

 

 

Comecei a desenvolver esse exercício, mas eu não entendi a lógica dele, por isso acabei travando no início mesmo, eu to quebrando a cabeça aqui, se alguém puder me ajudar, agradeço muito.

 

Program EX1;

var

mat:array[1..7,1..7] of integer;
i,j: integer;
 
 Begin

 while (mat[i,j] > 0) and (mat[i,j] < 20)  do
  
  if (mat[i,j] < 0) and (mat[i,j] > 20) 
   then
   
    writeln('Digite um valor maior que 0 e menor que 20!');
 
  for i:=1 to 7 do
   begin
   
    for j:=1 to 7 do
     begin 
     
      writeln('Digite o valor',i,'-',j,' ');
       readln(mat[i,j]);
     
     
  
End.

 

[Flávio Pedroza]

Acredito que o exercício esteja pedindo algo assim:

1: Leia x

    Verifique se x é maior que 0 e menor que 20.

    Se não, retorne para 1.

Imprime a matriz na tela preenchida AUTOMATICAMENTE conforme solicitado -NAÕ é para ler os elementos da matriz

Exemplo, se x = 5:

1 1 1 1 1 1 1 1 1
1 2 2 2 2 2 2 2 1
1 2 3 3 3 3 3 2 1 
1 2 3 4 4 4 3 3 1
1 2 3 4 5 4 3 2 1
1 2 3 4 4 4 3 2 1
1 2 3 3 3 3 3 2 1
1 2 2 2 2 2 2 2 1
1 1 1 1 1 1 1 1 1

Perceba, então, que o tamanho da MATRIZ quadrada será sempre o valor x*2 -1.

Então, basicamente seu programa seria:

.

Program EX1;

var

i,j, x: integer;
mat:array[1..37,1..37] of integer; 
 
Begin
 x:=0;
 while (x < 1) and (x > 19)  do
 begin
     readln (x);
 end; 
  
 Escreva aqui o código para preencher e imprimir a matrix
     
  
End.

O tamanho máximo seria 37 (2*19 -1 ).