Дана строка символов, среди которых есть двоеточие ":". Определить, сколько символов ему предшествует. - Pascal ABC

var
  s : string;
  i, k : byte;
begin
  write('строка: ');
  readln(s);
  k := 0;
  for i := 1 to length(s) do
    if s[i] = ':' then break
    else inc(k);
  if k = length(s) then writeln('в строке вообще нет двоеточия, длина строки: ', 
  length(s), ' символов')
  else writeln('двоеточию предшествует: ', k, ' символов')
end.