pos

czy jest funkcja taka jak POS czytajaca text od tylu?

O samej takiej funkcji nie słyszałem, ale można to łatwo zrobić za pomocą połaczenia Pos, ReverseString (StrUtils) i ewentualnie Length.

function OdwrocTekst(tekst:string):string;
var
   i:Integer;
begin
   Result:='';
   if Trim(tekst)<>'' then
   begin
      for i:=Length(tekst) downto 1 do
      Result:=Result+tekst[i];
   end;
end;

eee

Length(s) - Pos('cos', s);