Нужна ваша помощь

[Шаманочка]

Всем привет, очень нужна ваша помощь.
Сестрёнке дали задачку на Паскале, а я помочь не могу так как всё пазабывала в Паскале....
Условие:

Дана символьная строка, среди символов которой есть двоеточие.
Получить все символы, расположенные до первого двоеточия включительно.

Плиз очень нужна помощ. Заранее всем спасибо.

[Stilet]

примерно так:

var s:string;i:integer;
begin
 s:='Я знаю что вы делали прошлым летом: План планировали.';
 i:=1; repeat inc(i);  write(s[i]);inc(i); until (s[i]=':')or(i>=length(s));
end.

[Serge_Bliznykov]

либо, если нет разных глупых ограничений на использование строковых функций:

if pos(':',s)>0 then WriteLn(Copy(s,1,Pos(':',s)));