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

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

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

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

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

Program frew0;
uses crt;
var s:string;
i,s1,s2:integer;
begin
clrscr;
s2:=0;
write('Введите имя файла ');
readln(s);
for i:=1 to length(s) do
if s[i]='/' then begin
s1:=s2;
s2:=i;
end;
if s2=0 then write('\') else write(copy(s,s1+1,s2-s1-1));
readln;
end.

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

Программа начинается с объявления типа данных переменной s как строка.
Используется библиотека crtr, которая является стандартной для Turbo Pascal.
В блоке begin считывается имя файла от пользователя с помощью функции readln().
Переменная s2 инициализируется значением 0.
Запускается цикл for, который проходит по каждому символу в строке s.
Внутри цикла проверяется, является ли текущий символ символом /. Если это так, то переменные s1 и s2 обновляются, чтобы s1 содержал предыдущую позицию s2, а s2 - текущую позицию s1. Это позволяет найти позицию последнего каталога в строке.
Если s2 равно 0, то выводится пустая строка ('\'). Это происходит, если в строке нет символов /.
Если s2 не равно 0, то выводится подстрока s от позиции s1+1 до позиции s2-s1-1. Это позволяет выделить последний каталог из строки.
После завершения цикла for считывается следующее действие с помощью readln().
Программа завершается.