Задачка со строками (Паскаль)

[GaJIbI4]

Решите плиз следующую задачу: Даны символы S1,S2,...,S30 среди которых есть двоеточие
а) получить все символы, расположенные до первого двоеточия включительно;
б) получить все символы, расположенные после первого двоеточия;
в) получить все символы, расположенные между первым и вторым двоеточиями.

[Serge_Bliznykov]

такой наив, что даже обсуждать не хочется.. ;-(
пусть s - входная строка. s2 - результат. тогда:
a) if Pos(':',s)>1 then s2:=Copy(s,1,Pos(':',s)-1) else s2:='';
б) if Pos(':',s)>1 then s2:=Copy(s,Pos(':',s)+1,255) else s2:='';
b)

if Pos(':',s)>0 then begin
  s2:=Copy(s,Pos(':',s)+1,255);
  if Pos(':',s2)>1 then s2 := Copy(s2,1,Pos(':',s2)-1)
  else s2 := ''; 
end
else s2:='';

[TANKeX3mail]

repeat
n:=pos (':',S);
t:=(s,1,n);
writeln (t);
delete (s,1,t);
until (t=0)

[Стёпа]

помогите з задачой пожалуйста
Задан текст. Вывести все слова, в которых парное количество букв. Разделители произвольны. Найти найдовше из них, и позицию его размещения в строке.
за рание пасибо