Pascal

Escreva um programa em Pascal que leia do teclado um inteiro n, maior ou igual a 1, e que apresente no vídeo n linhas da forma abaixo.

Por exemplo, as seguintes linhas devem ser apresentadas se n = 5.

5 5 5 5 5

4 4 4 4 0

3 3 3 0 0

2 2 0 0 0

1 0 0 0 0

Se n < 1, uma mensagem de erro deve ser apresentada no vídeo.

Tentei fazer esse exercicio dessa forma usando uns exemplos de aula, porém não encontro em que errei, alguém poderia corrigir e reescrever a parte em que o erro lógico se encontra?

um exemplo que só falta adaptar

Program Pzim ;

var entrada, i, ult_num, current, pula_linha ,a: Integer;

Begin

write('Informe um valor maior ou igual a 1: ');

readln(entrada);

if (entrada < 1) then

write('O valor de entrada deve ser maior ou igual a 1')

else

begin

ult_num := entrada;

for i:= 1 to entrada do

begin

ult_num := ult_num + entrada - i;

end;

pula_linha := entrada;

a := 1;

for i:= 1 to ult_num do

begin

current := ult_num - i + 1;

write (current, ' ');

if (pula_linha = i) then

begin

writeln ('');

pula_linha := pula_linha + entrada - a;

a:= a + 1;

end;

end;

end;

End.