Разбить путь к файлу на части (директории и имя файла)


Ввести адрес файла и «разобрать» его на части, разделенные знаком «/». Каждую часть вывести в отдельной строке.
Пример: C:/фото/2013/Поход/vasya.jpg
C:
фото
2013
Поход
vasya.jpg

Исходный код на языке Pascal

var
  k, s: string;
  n: integer;

begin
  read(s);
  n := 100;
  while n > 0 do 
  begin
    n := pos('/', s);
    if n > 0 then 
    begin
      k := copy(s, 1, n - 1);
      writeln(k);
      delete(s, 1, n);
    end else
      n := 0;
  end;
  k := copy(s, n, length(s));
  writeln(k);
end.