Удалить все символы между первой и второй двокрапкой. Опции

[Wild_klas]

Даны символы среди которых есть двокрапка. Нужно вывести все символы которые находятсья между первой и второй двокрапкой. А если второй двокрапки нет, то вывести те символы которые находятся после первой двокрапки.
Начал решать, и застрял

Var s:string;
i:byte;
k,l:integer;

begin
  Write('Input string: ');
  Readln(s);
  k:=pos(':',s);
  I:=Length(s);
  If k=0 Then Writeln ('Symvol `:` not found in string') Else
   begin
    For i:=1 to Length(s) do
      begin
           If K>1 Then
             Begin
                   l:=k-i;
                  delete(s,l,i);

Если так то удаляет те символы которые стоят после двокрапки.
Кто подскажет как сделать так чтобы удаляло перед двокрапкой?
И как удалить между двумя двокрапками? Заранее спасибо.

Добавлено через 8 мин.
Уже разобрался, спасибо))