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

program
var n,n1 : integer;
st,st1,st2: string;
f,g:text;
begib 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.