Дана строка. Выделить подстроку от первого до второго двоеточия (пустая строка, если меньше двух двоеточий). — Pascal(Паскаль)

uses crt;
var s,s1:string;
    i,k,i1,i2:byte;
begin
clrscr;
writeln('Введите строку, содержащую двоеточия:');
readln(s);
i1:=pos(':',s);
if i1=0 then writeln('Двоеточий нет!')
else
 begin
  i2:=pos(':',copy(s,i1+1,length(s)))+i1;
  if i2=0 then writeln('Двух двоеточий нет!')
  else
   begin
    if i2=i1+1 then writeln('Пустая строка')
    else
     begin
      writeln('Подстрока между первым и вторым двоеточием:');
      writeln(copy(s,i1+1,i2-i1-1));
     end;
   end;
 end;
readln
end.