Pascal/Turbo Pascal - Leer una cadena de caracteres.

Mi problema es que no consigo leer una cadena de caracteres sin usar el tipo string. Lo estoy intentando con arrays de char. Esto es lo mas lejos que he llehago:

program leer_vector(Input,Output);
type
vector = packed array[1..10]of char;
var
i,j,lp :integer;
ok : boolean;
p : vector;
c:char;
begin
ok:=false;
repeat
for i:=1 to 10 do p[i]:='*';
writeln;
write('Introduzca la palabra a buscar: ');
i:=1;
repeat
read(c);
if c<>chr(10) then p[i]:=c;
i:=i+1;
until (c=chr(10)) or (i>10);

writeln;
if (p[2]='*') or (p[9+1]<>'*') then writeln('­Palabra no valida!')
else begin
ok:=true;
end;
writeln;
writeln;
for i:=1 to 10 do write(p[i]);
until ok;
readln;
end.

No consigo aclararme con el comportamiento de este progrma. Si aguien me puede ayudar se lo agradeceria mucho.

¿Cuál es el objeto de este programa?.

Hola Tate.
Yo lo haría así:

program leer_sin_string;
uses crt;
var
Caracter: char;
Cadena : string;
begin
Cadena := '';
ClrScr;
Writeln('Intruduzca una palabra');
repeat
if KeyPressed then
begin
Caracter := ReadKey;
Write(Caracter);
Cadena := Cadena + Caracter
end;
until Caracter = Char(13);
Writeln;
WriteLn(Cadena);
ReadKey
end.

El objeto del programa es buscar en una sopa de letras una palabra. No se puede usar el tipo STRING para leer la palabra a buscar. Las sopas de letras vienen dadas en un fichero de texto. Pero, ese no es el problema. El problema viene cuando pretendo leer una cadena de CHAR por el Input del programa, me hace cosas raras. No me queda más remedio de usar STRING en esa parte del programa. Tengo que hacer el sigiente procedimiento solo con el tipo CHAR:

procedure leer_vector(var p:vector;var lp,ne:integer);
var
palabra:string[10];
ok:boolean;
i:integer;
c:char;
begin
ok:=false;
repeat
writeln;
write(' Introduzca la palabra que desea buscar: ');
readln(palabra);
if (length(palabra)=1) or (length(palabra)>9) then
begin
writeln(' Palabra no valida');
writeln;
end
else ok:=true;
until ok;
for i:=1 to length(palabra)+1 do
begin
p[i]:=palabra[i];
end;
lp:=length(palabra);
for i:=length(palabra)+1 to max do p[i]:='*';
writeln;
end;

Y no soy capaz. Se me escapa por ejemplo controlar si la cadena es demasiado largo y cosas asi. Necesitaria un procedimienti distinto a este de mis intentos:
program leer_vector(Input,Output);

type
vector = packed array[1..10]of char;

var
i,j,lp :integer;
ok : boolean;
p : vector;
c:char;

begin
ok:=false;
repeat
for i:=1 to 10 do p[i]:='*';
writeln;
write('Introduzca la palabra a buscar: ');
i:=1;
repeat
read(c);
if c<>chr(10) then p[i]:=c;
i:=i+1;
until (c=chr(10)) or (i>10);

writeln;
if (p[2]='*') or (p[9+1]<>'*') then writeln('­Palabra no valida!')
else begin
ok:=true;
end;
writeln;
writeln;
for i:=1 to 10 do write(p[i]);
until ok;
readln;
end.

Gracias tio.

Tate.

Creo que siempre te salen: ******** estrellitas porque pusiste:

repeat
for i:=1 to 10 do p[i]:='*';

Cada vez que se repite el ciclo, estás rellenando tu array con asteriscos

Debes ponerlo así:

for i:=1 to 10 do p[i]:='*';
repeat

Así inicializas tu array y luego ya en el ciclo dejas que el usuario lo rellene con su cadena.


voy a seguir analizando tu programa..

por lo que yo se para leer una cadena de caracteres se declara así

char caracter [1][10]
el uno es la posicion del arreglo y el 10 es la longitud de los carateres

y para leerlos es
scanf("%s",caracter);

Gracias por el codigo me es de mucha ayuda :)