stringg

uses crt;
var s,s1:string;
    i,p:byte;
begin
clrscr;
s:='D:\aaaaa\fail.txt';
writeln(s);
p:=pos('.',s)-1;
i:=p;
s1:='';
while s[i]<>'\'do
 begin
  s1:=s[i]+s1;
  i:=i-1;
 end;
write('Imya faila - ',s1);
readln
end.