Palindromy-wczyt i zapis do pliku

Muszę napisać program który będzie po kolei wczytywał każde słowo (ustawione jedne pod drugim w pliku txt) odwracał je np: mając słowo: ptak zamieni je na : katp i sprawdzi czy takie słowo istnieje w naszym pliku ze słowami, jeśli tak to zapisze to słowo do drugiego pliku, jeśli nie sprawdzi następne i tak do końca.

Wiem już jak ma odwracać słowo i zrobiłem to tak:

...
...
...
var   in_s,out_s:string;
        i,l:integer;
...
...
...
begin
       ...
       ...
        out_s:='';
        l:=length(in_s);
        for i:=1 to l do
                out_s:=out_s+(in_s[l-i+1]);
...
...
...

i na tym kończy się moja wiedza. Nie wiem jak wczytać każde słowo po kolei z pliku i sprawdzić czy odwrócone jest w tej bazie i jeśli jest to ma je wrzucać do drugiego pliku.

Bardzo prosiłbym o pomoc.