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

program zz1;

var s:string; / / задаем переменную строкового типа

i, k, p:integer; / / задаем переменные целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

k:=pos (':', s); / / определяем позицию символа двоеточие

p:=k-1; / / вычисляем сколько символов предшествует двоеточию

writeln (' количество символов до двоеточия = ', p); / / выводим ответ

end.