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

[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);

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

[maxionans]

var 
  Index : Integer;
  Str : String;
begin
  ReadLn( Str );
  Index := Pos( ':', Str );
  if Index < 1 then Exit;

  Delete( Str, 1, Index );

  Index := Pos( ':', Str );
  if Index > 0 then Delete( Str, Index, MaxInt );

  WriteLn( Str );
end;

[Wild_klas]

Спасибо огромное!!

[maxionans]

а пожалуйста