word on the contrary

program none;
uses crt;
var
    s: string;
    c: integer;
begin
    writeln('Дано слово, записанное наоборот. Ввести это слово и расшифровать его.');
    writeln();
    write('Введите зашифрованное слово: ');
    read(s);
     writeln();
    write('Расшифрованное слово: : ');
    for c := length(s) downto 1 do write(s[c]);
    writeln();
end.