В результирующий файл Outlet.out записать имя файла без указания пути к нему - Pascal

Формулировка задачи:

помогите пожалуйста !!! Дан текстовый файл Inlet.in , содержащий строко-вые величины S , значения которых – полные имена файлов, т.е. имя диска, список каталогов (путь ), соб-ственно имя файла и его расширение. В результирующий файл Outlet.out записать соб-ственно имя файла (без указания пути к нему).

Решение задачи: «В результирующий файл Outlet.out записать имя файла без указания пути к нему»

Листинг программы

var f,g:text;
    s,s1:string;
    i:byte;
begin
assign(f,'inlet.in');//файл в папке с программой
reset(f);
assign(g,'outlet.out');
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  s1:='';
  i:=length(s);
  while(i>0)and(s[i]<>'\') do
   begin
    s1:=s[i]+s1;
    i:=i-1;
   end;
 writeln(g,s1);
end;
close(f);
close(g);
write('Файл inlet.in прочитан, имена файлов записаны в файл outlet.out')
end.

Объяснение кода листинга программы

Объявляется переменная f для обозначения файла ввода и переменная g для обозначения файла вывода.
Создается переменная s для хранения строковых данных и переменная s1 для хранения результата обработки строки.
Создается переменная i для хранения числовых данных.
Присваивается переменной f значение inlet.in для файла в папке с программой.
Выполняется открытие файла f с помощью процедуры assign и reset для чтения.
Присваивается переменной g значение outlet.out для файла вывода.
Выполняется открытие файла g с помощью процедуры assign и rewrite для записи.
До тех пор, пока файл f не закончится, выполняется чтение строки из файла f в переменную s.
Обнуляется переменная s1.
Находится длина строки s и присваивается переменной i.
Выполняется цикл: пока i больше 0 и символ в позиции i в строке s не равен символу \.
Внутри цикла: значение в позиции i строки s добавляется к переменной s1, затем уменьшается i на 1.
Записывается значение переменной s1 в файл g.
Закрытие файлов f и g с помощью процедур close.
Вывод сообщения Файл inlet.in прочитан, имена файлов записаны в файл outlet.out на экран.