Pascal/Turbo Pascal - Programar

Hola quisiera ayuda con esto, no encuentro manera de realizar que este programa en vez de leer y visualizar números, lea y visualice palabras.

PROGRAM MUESTRANUM;
USES CRT;
CONST
N= 3;
VAR
NUMERO:ARRAY [1..N] OF INTEGER;
I: INTEGER;
BEGIN
CLRSCR;

FOR I :=1 TO N DO
BEGIN
WRIDECLARACIÓNUZCA UN NUMERO POR FAVOR');
READLN (NUMERO [I]);
END;
fOR I:= 1 TO N DO
BEGIN
WRITELN (' EL NUMERO INTRODUCIDO POR PANTALLA ES',NUMERO [I]);
END;
READLN;
END.

PROGRAM MUESTRAWORD;
USES CRT;
CONST
N= 3;
VAR
PALABRA:ARRAY [1..N] OF STRING;
I:INTEGER;
BEGIN
CLRSCR;

FOR I :=1 TO N DO
BEGIN
WRITELN('INTRODUZCA UNA PALABRA POR FAVOR');
READLN (PALABRA[I]);
END;
FOR I:= 1 TO N DO
BEGIN
WRITELN ('LAS PALABRAS INTRODUCIDAS POR PANTALLA SON ',PALABRA[I]);
END;
READLN;
END.