Tabla en free/turbopascal

[Yrth]

Hola buenas tardes, soi nuevo en este foro y me e registrado mas que nada porque estoi enepzando a tener problemas con el pascal(estoi en primer curso de grado de ingenieria informatica en la upna) y queria saber como crear un programa con las siguientes caracteristicas:
-al meter un numero entero en el programa, te devuelve una tabla del estilo de los ejemplos:
ejemplos:
Z=3
te devuelve:
1 2 3
2 3 3
3 3 3

Z=4
te devuelve:
1 2 3 4
2 3 4 4
3 4 4 4
4 4 4 4

Z=5
1 2 3 4 5
2 3 4 5 5
3 4 5 5 5
4 5 5 5 5
5 5 5 5 5

alguien podria ayudarme?gracias de antemano

[Monimo]

Me parece que seria algo asi:

Código:

var
A=array[1..numero,1..numero] of integer;
numero, fila, dato, columna : integer;

writeln("Escribe un numero");
readln(numero);
for fila:=1 to numero do
begin
	write(A(fila,1):fila);
	dato=fila;
	
	For columna:=2 to numero do
	
	dato=dato+1:
	if dato>numero then
	write(A(fila,columna):numero);
	else
	write(A(fila,columna):dato);
	end

Revisa la sintáxis porque hace mas de 8 años que no utilizo Pascal :S