Дана строчка знаков,среди которых есть двоеточие.найти сколько символов ему предшествует

program zz1;
var s:string; // задаем переменную строкового типа
i, k, p:integer; // задаем переменные целого типа
begin
write( введите строчку );
read(s); // вводим с клавиатуры строчку
k:=pos(:,s); // определяем позицию знака двоеточие
p:=k-1; // вычисляем сколько знаков предшествует двоеточию
writeln( количество символов до двоеточия = , p); // выводим ответ
end.