Dev pascal no compila

[valenti77]

hola, tengo que hacer un tp para la facultad pero no me compila el codigo que tengo:

Código:

program  Ejercicio6;

VAR
palabra: string;
rta: char;
cantcar: integer;
inviert: string;

Begin
write:'hay palabra?(S/N)';
read:rta;
while(rta=S)DO
            Begin
            write:'Ingrese palabra';
            read:palabra;
            cantcar:=length(palabra);
            inviert:='';
            For I:=cantcar DOWNTO 1 Do
                                    inviert:=copy(palabra,I,1);
                                    If (I>1) Then
                                             inviert:=copy(palabra,I,1)+inviert;
            write:inviert;
            write:'Hay otra palabra?(S/N)';
            read:rta;
end
end

Busque todas las formas pero no se que es lo loco, a alguien se le ocurre que puede ser?

[venkman]

Vamos por pasos.

Dices "no me compila".
Te pregunto: Me imagino que te da un error al compilar. ¿Puedes poner el error que te da?

[valenti77]

me pone:

ejerci~2.pas(10,6) Fatal: Syntax error, ; expected but : found

en la linea 10,6 que es la siguiente:

VAR
palabra: string;
rta: char;
cantcar: integer;
inviert: string;

[venkman]

Bien, veamos.

La línea 10,6 es la línea 10, caracter 6. Así que no es la línea que pones sino:

Código pascal:

write:'hay palabra?(S/N)';
 

El mensaje de error dice que se esperaba un ; pero que se ha encontrado :
Lo que eso quiere decir es que hay un : ahí "write:" que no se sabe qué hace ahí.

Veo que pareces creer que para escribir y leer se hacen llamadas con write:'cadena'; pero eso no es Pascal. En Pascal se escribe writeln('cadena'); comoe sto:

Código pascal:

writeln('hay palabra?(S/N)');
 

Quizá te conviene repasar un poco tu libro o apuntes de Pascal?

[valenti77]

es que lo lei, pero parece ser que leii cualquier cosa jaja, muchas gracias, lo corregi pero me sigue dando errores:

ejerci~2.pas(15,11) Error: Identifier not found S
ejerci~2.pas(17,20) Fatal: Syntax error, ; expected but : found

y este es el codgio que me quedo al final:

Código:

program  Ejercicio6;

Type
  cadena =string[35];

VAR
pal :cadena;
rta :char;
cant :integer;
invi :cadena;

Begin
writeln('hay palabra?(S/N)');
readln(rta);
while(rta=S)DO
            Begin
            writeln:('Ingrese palabra');
            readln(pal);
            cant:=length(pal);
            invi:='';
            For I:=cantcar DOWNTO 1 Do
                                    invi:=copy(pal,I,1);
                                    If (I>1) Then
                                             invi:=copy(pal,I,1)+invi;
            writeln(invi);
            writeln('Hay otra palabra?(S/N)');
            readln(rta);
end;
end.

perdoname pero estoy aprendiendo

[valenti77]

ya esta problema solucionado, ya me da vuelta las palabras, lo termine, gracias por tu ayuda!

[venkman]

De nada. Espero sobretodo que hayas aprendido cómo leer los mensajes de error. Suelen dar una buena pista sobre cuál es el problema.