Вывести на экран часть строки, стоящую после первого символа «/» — Pascal(Паскаль)

пример "abcd/efgh/ret" = "efgh/ret"

uses crt;
var s:string;
    p:byte;
begin
clrscr;
writeln('Введите строку, содержащую символы /');
readln(s);
p:=pos('/',s)+1;{позиция первого / +1}
s:=copy(s,p,length(s)-p+1);{копируем остаток строки за /}
write(s);
readln
end.