Получить все символы, расположенные между первым и вторым двоеточием - QBasic

Формулировка задачи:

известно,что в исходной строке есть двоеточие.Получить все символы,расположенные между первым и вторым двоеточием.Если второго двоеточия нет,то получить все символы,расположенные после единственного имеющегося двоеточия. есть эта же программа только на паскаль и си... НА PASCAL

                    Листинг программы
                
 
                        
                          
                    
 program Prog2;
 uses Crt;
 
 procedure StrCpyCh(var dest: string; src: string; delim: char);
 var
 p: integer;
 temp: string;
 begin
 p := Pos(delim, src);
 if p = 0 then dest := src else
 begin
 temp := Copy(src, p+1, Length(src)-p);
 p := Pos(delim, temp);
 if p = 0 then dest := temp else dest := Copy(temp, 1, p-1);
 end;
 end;
 
 var
 s: string;
 
 begin
 ClrScr;
 StrCpyCh(s, 'Today day dark: animals - sheep, cat, tiger: fox !', ':');
 WriteLn(s);
 ReadLn;
 end.

НА С

                    Листинг программы
                
 
                        
                          
                    
 #include <stdio.h>
 
 char* ch_strcpy(char* dst, const char* src, char ch) {
 char* iter = dst;
 while( *src ) {
 if( *src++ == ch ) 
 break;
 }
 while( *src != '\0' && *src != ch) {
 *iter = *src++;
 ++iter;
 }
 *iter = '\0';
 return dst;
 }
 
 int main(void)
 {
 char str[128];
 ch_strcpy(str, "Today day dark: animals - sheep, cat, tiger: fox !", ':');
 
 puts(str);
 
 getchar();
 return 0;
 }

Решение задачи: «Получить все символы, расположенные между первым и вторым двоеточием»

textual
                            Листинг программы 
                        
INPUT "vvedite x"; x
INPUT "vvedite y"; y
IF (y <= 0) AND (x >= 0) AND (x ^ 2 + y ^ 2 <= 36) AND (y >= -x) THEN f = 1
IF (y <= 0) AND (x <= 0) AND (x ^ 2 + y ^ 2 <= 36) AND (x ^ 2 + y ^ 2 >= 9) THEN f = 1
IF f = 1 THEN PRINT "da" ELSE PRINT "net"