Нужно отделить части адреса как в комментарии к программе. Но почему то не работает. Скажите пожалуйста. Что не так?)

{C:/фото/2013/Поход/vasya.jpg
C:
фото
2013
Поход
vasya.jpg}
program chasty;
 
const
  N = 5;
 
var
  s: string;
 
var
  e, i: integer;
 
var
  A: array[1..N] of string;
 
begin
  write('Введите строку с адресом файла: ');
  readln(s);
  for i := 1 to N do 
  begin
    e := pos(s, '/');
    A[i] := copy(s, 1, e - 1);
    delete(s, 1, e);
    writeln(A[i]);
  end;
end.

program chasty;
 
const
  N = 5;
 
var
  s: string;
 
var
  i, prev, p: integer;
 
var
  A: array[1..N] of string;
 
begin
  write('Введите строку с адресом файла: ');
  readln(s);
  s := s + '/';
  p := 0; i := 0;
  repeat
    prev := p + 1;
    p := PosEx('/', s, prev);
    if p <> 0 then 
    begin
      inc(i);
      a[i] := Copy(s, prev, p - prev);
    end;
  until p = 0;
  print(a);
end.

program chasty;
var
  s: string;
begin
  write('Введите строку с адресом файла: ');
  readln(s);
  var a := s.ToWords('/');
  print(a);
end.