Pascal/Turbo Pascal - cuadrado ciclico

Necesito, pero no doy con ello, programar en pascal, lo siguiente.
Se introduce por teclado un numero impar -n- y se tiene que visualizar lo siguiente.
Ej si meto un 3 se debería ver: 111
121
111

Si meto un 5 se debería ver: 11111
12221
12321
12221
11111

Si meto un 7 se deberia ver: 1111111
1222221
1233321
1234321
1233321
1222221
1111111
Etc, etc, según el ímpar introducido dibuja cuadrados mismo número.
Gracias.

for i:=1 to n div 2
begin
for j:=1 to i do
write(j);
for j:=1 to n-2*i do
write(i)
for j:=i downto 1 do
write(j)
writeln
end
for i:=1 to n div 2 +1 do
write(i)
for i:=n div 2 downto 1 do
write(i)
writeln
for i:=n div 2 downto 1
begin
for j:=1 to i do
write(j);
for j:=1 to n-2*i do
write(i)
for j:=i downto 1 do
write(j)
writeln
end

Un millón de gracias. <
Solo soy un novato, pero si en algo puedo ayudar estoy a vuestra disposición. Gracias de nuevo.