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

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.