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