Дана символьная строка среди символов в которой есть двоеточие получить все символы расположенные после первого двоеточия- Pascal(Паскаль)

var
s:string;p:integer;
begin
readln(s);
p:=pos(':',s);
if p=0 then write('В строке нет двоеточия')
else if p=length(s) then write('Двоеточие последнее в строке')
else
 begin
  writeln('Символы после первого двоеточия:');
  write(copy(s,p+1,length(s)-p));
 end;

end.