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?