Решение задачи String 58

#include <bits/stdc++.h>

using namespace std;

int main()
{
    string s;
    cin >> s;
    int pos = s.rfind(char(92));
    int pos1 = s.rfind('.');
    cout << s.substr(pos + 1, pos1 - pos - 1);
    return 0;
}

program String58;
var
 FullName,Name:String;
 i,dot:integer;
 
begin
  Write('FullName: ');
  Readln(FullName);
 
  Name:='';
  i:=1;
  While (i<=Length(FullName)) do
   begin
    if (FullName[i]='\') or (FullName[i]='\') then Name:='';//"or (FullName[i]='\')" можно убрать... это усорвие чисито моё миро ощущение
    if FullName[i]='.' then dot:=Length(Name);
    Name:=Name+FullName[i];
    inc(i);
   end;
  Delete(Name,1,1);
  Delete(Name,dot,Length(Name)-dot+1);
  Writeln(Name);
end.