выбрать символы,расположенные между первым и вторым двоеточием . если 2 двоеточия нет,выбрать все символы,расположенные после единственного имеющегося двоеточия.

program

var n, n1 : integer;
st, st1, st2 : string;
f, g : text;

begin
    assign(f);
    assign(g);
    reset(f);

    rewrite(g);
    while not eof (f) do
    begin
        readln(f, st);
        n := pos(':',st);
        st2 := copy(st,n+1,length(st) - n); и здесь неправильно
        n1 := pos( ':',st2); - здесь неправильно
        st1 := copy(st2,1,n1-1);
    if n1 = 0 then
        writeln(g,st2)
    else
        writeln(g,st1);
    end;

    close(f);
    close(g);
end.