Выделить из полного пути имя последнего каталога - Turbo Pascal

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

Дана строка, содержащая полное имя файла. Выделить из этой стро- ки название последнего каталога (без символов «\»). Если файл содер- жится в корневом каталоге, то вывести символ «\».

Решение задачи: «Выделить из полного пути имя последнего каталога»

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

var
s,s1:string;
i,k,k1:integer;
begin
  writeln('Введите путь к файлу');
  readln(s);
  k:=0;
    for i:=length(s) downto 1 do
     begin
      if ( s[i]='\' )  then
          k:=k+1;
      if ( s[i] <> '\' ) and ( k=1 ) then
         s1:=s1+s[i];
      if k=2 then
        break;
     end;
  if k=2 then
   for i:=length(s1) downto 1 do
     write(s1[i])
  else
    write('\');
end.

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

Программа запрашивает у пользователя путь к файлу и сохраняет его в переменной s.
Переменная k инициализируется значением 0.
Переменная i принимает значения от длины строки s до 1, затем начинается цикл.
Внутри цикла проверяется каждый символ строки s.
Если символ - одинарная кавычка (''), то переменная k увеличивается на 1.
Если символ не является кавычкой, но переменная k равна 1, то к строке s1 добавляется текущий символ.
Если переменная k равна 2, то цикл прерывается.
Если переменная k равна 2, то цикл начинается снова, но уже с конца строки s1.
Цикл продолжается до тех пор, пока переменная k не станет равной 2.
Если переменная k не стала равной 2, то на экран выводится символ, следующий за последним символом строки s1.
Программа завершается.