Dev pascal no compila

[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