помогите задача на строковый тип данных

Question

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

Алексей Суровец · Accepted Answer

var s,s1:string; 
 i:integer; 
begin 
readln(s); 
i:=pos('\', s); 
delete(s,1,i); 
if pos('\', s)=0 then writeln('\') 
 else begin 
 repeat 
 i:=pos('\', s); 
 s1:=copy(s,1,i-1); 
 delete(s,1,i); 
 until pos('\', s)=0; 
 writeln(s1); 
 end; 
end.