function r (s : string) : string;
  var
    i,l : integer;
      r : boolean;
    rez : string;
  begin
   
   l := Length (s);
   i := l;
   r := false;
   
   While (i > 0) and (not r) do
    begin
     if (s[i] = '.') or (s[i] = '/') or (s[i] = '\') then
      r := true
     else
      rez := s[i] + rez;
     
     i := i -1;
    end;
   Result := rez;
  end;