Pascal/Turbo Pascal - ejercicio con 'FOR' y 'ARRAY'

Hola, llevo dos dias con un ejercicio(en Pascal) que no me sale, la verdad que no se como se hace
el ejercicio es el siguiente:
1:-coje desde teclado un numero Z y dibuja una figura como esta:
ejemplo:Z=4

http://tinypic.com/r/96w3f8/5


se resuelve con FOR


y otro ejercicio con ARRAY's
2.- tome una tabla T que lea caracteres y dibuje lo siguiente
ejemplo1:AMAZONIA ejemplo2:IKUSI

http://tinypic.com/r/1zefb6c/5

Agradeceria que me ayudaseis con el problema
Gracias y adios!

{Espero te sirva }

program aconju;
uses
crt;
type
arraytex = array[1..20] of char;
var
nume : integer;
cadena : arraytex;

procedure presenta_numero(xn, yn : integer; n : integer);
var
tex, text : string;
s : string[2];
h, cc : integer;
begin
for cc := 1 to n do
begin
str(cc,s);
text[cc] := s[1];
text[0] := chr(cc);
end;
h := 1;
for cc := n downto 1 do
begin
tex[h] := text[cc];
tex[0] := chr(h);
h := h + 1;
end;
cc := 1;
h := 0;
for cc := 1 to n do
begin
gotoxy(xn + h, (yn + n) + cc);write(copy(text,1,length(text) - h));
gotoxy((xn + n), yn + cc);write(copy(tex,(n - h),length(tex)));
h := h + 1;
end;
end;


procedure presenta_texto(xt, yt : integer; tex : arraytex);
var
e, i, pasos : integer;
texto : string;
begin
for e := 1 to 20 do
begin
if tex[e] <> ' ' then
begin
texto[e] := tex[e];
texto[0] := chr(e);
end;
end;
pasos := 1;
i := 0;
e := 0;
for pasos := 1 to length(texto) do
begin
gotoxy(xt + i,yt + i);write(copy(texto,pasos,length(texto) - e));
i := i + 1;
e := e + 2;
end;
end;

begin
clrscr;
nume := 4;
presenta_numero(15,2,nume);
fillchar(cadena,sizeof(cadena),' ');
cadena[1] := 'A';
cadena[2] := 'M';
cadena[3] := 'A';
cadena[4] := 'Z';
cadena[5] := 'O';
cadena[6] := 'N';
cadena[7] := 'I';
cadena[8] := 'A';
presenta_texto(15,12,cadena);
fillchar(cadena,sizeof(cadena),' ');
cadena[1] := 'I';
cadena[2] := 'K';
cadena[3] := 'U';
cadena[4] := 'S';
cadena[5] := 'I';
presenta_texto(17,20,cadena);
readln;
end.

Muchas gracias