de ce nu merge imi da 0 puncte uitativa si incercati sursa asta pls.

Cod:

var
     f,g:text;
     s:string;
     a:array[1..100] of string;
     i,l:longint;
begin
        assign(f,'palindrom2.in');
        reset(f);
        read(f,s);
        close(f);
        assign(g,'palindrom2.out');
        rewrite(g);
        write(g,s);
        l:=length(s);
        for i:=l-1 downto 1 do
                write(g,s[i]);
        close(g);
end.

Editat de admin: Foloseste tagul "code" cand postezi surse.

  Am facut problema si nu stiu de ce nu imi pun punctele pt ca am incercat testele si imi da bn